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INTRODUCTION 



Welcome to Oregon Software's Pascal-1! 

This user manual contains all the information you should need to 
install and operate Oregon Software's Pascal-1 system on aEC's 
RT-11 V2, V3 and V4 operating systems. 

The first part of this fnanual that you will need is the 
Installation Suide, which is in the back. ' <lile put it there 
because you will want it only for reference after you tiave 
installed .your Pascal-1. ) The other sections come in the cr-der in 
which you are most likely to, need them. 

The first section is the User's Suide, which is a beginner's walk 
in the countryside of Pascal-1. The User's Suide has twe parts. 
The first is a quick jump into simple programs. The idea is to 
immerse you immediately in our product, to give you a feel fcsr it. 
The second part covers some of the same ideas? but expands on 
concepts and details. You can cover this sectifKi at a brisk pace. 
Experienced programmers will probably dash through it. 

But lest you get too confident in your stroll through the User's 
Suide, there are brambles aplenty for unwary souls in the 
following sections: the Programmer's Suide^ the Language 
Specification, and the Debugger Suide. Experienced prcwgtrafflBers 
should have no trouble, and beginners can laake their way 
carefully, but we encourage the latter toward adctitiimal reading. 
(See the list of books that follows.) Each section ttms a brief 
introduction explaining its function. 
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For More Information 



Wb can suggest several places to find more information about 
Pascal : 



(1) Try it! Certainly" the most challenging course, and the 
most open-ended and accurate as well. Accpiire the habit of 
answering your questions by experiment. Remefld?^, "You can't' 
hurt the computer!" 

<2) Programming in Pascal , by Grogono — a gocMi ' cmirse in 
Standard Pascal, with lots of sample programs for <1>, above. 

<3) Pascal User Manual and Regort by (Cathieen Jerlsen and 
Nikiaus Wirth — the first definition of Stendsurd Pascal. 

<4) This manual — for fine points and grttfjby details of our 
Pascal, it's the only place in town. 

For the serious student, these books are available frofli Hregon 
Software or elsewhere: 

Systematic Prggraminingi An Introduction* Miklaus Wirth? 
Prentice-Hall, *17.75 

Al gorithms + Data Structures = Progr^gs, Nikiaus Mirth? 
Prentice^Hail, *20.25 

Structured Prggramnsing, Dahl , Dijkstra, Hoare? 
Academic Press, $15.30 

Elements of Programming StYiS, Kternighan an*i Plaug^-S 
McBraw-Hill, *3.95 

And. we reccMsmend that you join the Pascal Osers' Broup, which 
publishes an eKcellent newsletter. S^td «10 few a one-year 
subscription to; 

Pascal Users' Broup 
Attn: Rick Shaw 
P.O. Box 888524 
Atlanta, Beorgia 3033S 
(404) 252-2600 
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Whg_Are_Wej._Ani£waj£? 



Oregon Software traces its origins to OMSI ~ the Oregon Museuai of 
Science and Industry. OMSI is a private educational organization 
chartered "to further the education of the youth of the 
community", and it was in the Research Laboratory at OHSI that we 
began writing softwar^e. Seven of us came from OHSI to found 
Oregon Software in September, 1977. Because of the close 
association, the name "OMSI" stayed with us for a **iile, and we 
continue to contribute some of our corporate re^surces to the 
Museum. 

But please, we're Oregon Software. We're a research and 
development software corporation in Portland, with a nice view of 
Mount Hood and of what's left of Mount St. Helens. The seven from 
OMSI have grown into twenty-five from all over. 

On a serious note: OMSI is a non-profit, charitable institution. 
Contributions of money and equipment are much needed^tl are 
tax-deductible. Please earmark your donations for the Research 
Lab, which supports independent science projects m «^^^**«]^?» 
including computing. For further information about the E»1Si 
Research Lab program, contact: 

Director of Research 
OMSI 

4015 SW Canyon Road 
Portland, Oregon 97201 
(503) 248-5943 



What i s Pascal rS?. 



Now that you know more about us, you may want to know more about 
our newest product-in-pr,ogress, Pascal -2. Pascal -2 is our new 
optimizing compiler, written in Pascal. It's designed to be 
portable, and it's already been moved to a frtemeywell coa^uter. 
The Pascal -2 compiler is bigger and slower than Pascal-i, but^ not 
the generated code. Typical programs ars 40% smaller and aj8»ost 
twice as fast. You can expect Pascal-2 compilers to be available 
on a wide range of i6-bit and 32-bit processors in the next 
several years. Supported users of Pascal-1 will receive 
substantial discounts on their purchase of Pascal-2 licenses for 
the PDP-11. 
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And Finally 



This manual is the third edition of our RT-11 manual and contains 
a number of changes and additions, including: 

1) Correction of errors and omissions in documentation; 

2) More details, espeCTially about installation procedia-es? 

3) A general Table of Contents and a Table of Contents for 
each section; 

4) A standard format for all sections and sec|uential 
numbering for the entire manual; 

5) Inclusion of all sample programs in the machine-readafale 
version of the manual; 

6) Correction of spelling mistakes and other irritating 
little errors. 

Most of the changes are in the nature of "tidying up", but we 
believe that it is a good deal easier' to read and find things in 
this version of our manual than in our earlier efforts. 

Oregon Software plans to continually upgrade its «iff-itten 
materials. In the future, 'we expect to include msrm details and 
more sample programs and examples in the RT-ii nanual. If you 
have any suggestions, or if you have any fjrofalems with this 
manual, ple^ase tell us about them <in writing). 
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I nt roduction to the..lJser,'s Buide 

This is the introductory section, the User's Guide. It explains: 

1) how to compile and run your Pascal programs; 

2) how to interpret program listings and error messages; 

3) some details of the compilation process- 

This guide assumes that you are familiar with: 
1) simple RT-ll commands? 

2> a tent editor <EDIT, tECO, EDT, SOS> I 
3) elementary Pascal programming. 

This guide is not: 

1) an introduction to Pascal <see PrggramBing iQ Pascal by 

Grogono) ; 

2) a detailed description of Pascal -1 tsee the Language 

Specification); 

3) an expert's guide to Pascal-1 (see the Prtsgrammer ' s SuideJ. 

In examples, underlining is used to show the text that you should 
type. Non-underlined text shows prompts or other responses t»y the 
computer. 
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Enter inq., the Program . 



So you want to run a Pascal' program? 

The first step is to enter the program into the computer and store 
it in the file system. Use a familiar teKt editor to enter your 
program, and store the program in a file with the extension .PAS. 
The Pascal system accepts free-format program files, so use 
blanks, tabs, new lines, and form feeds as desired to help make 

your program readable. 

■ i 

This Pascal version of your program is called the source program, 
or the! source file. All other versions of your program are 
translations from the source program. 

Source programs should be stored in files with the ext^isicwi *PAS 
for Pascal (eKample: FIRST.PAS). The .PAS extension may be 
omitted from commands to the Pascal system, but must be included 
in commands to other RT-11 systems such as the editor- 



Con5Biling_the_PrDgrajn_. 



After editing, you must compile your program ~ "translate it into 
a form thatcan be directly executed by the computer- The Pascal 
compilation process is directed by the PCL CPascal Command 
Language} program. Its simplest form is: 

-R PCL 

*< source file naffle> 

To illustrate the compilation process, let's assume that this 
program 

program First (output); 
begin 

write ('"Things are best in their beginnings >; 

writeln (' — Blaise Pascal'); 
end. 

is stored in the file FIRST.PAS. 
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In the Beginning ... 

The compilation process begins with your cooiaiand and is followed 
by the computer's response: 

■B ^L 
♦EIBil 

.RU SY: PASCAL 
' *TEMP. TMP , TT: =FIRST/N 

Errors detected: O 
Free memory: 11660 words 

.R MACRO 

«TEMP. TriP=TEMP. TMP 

ERRORS DETECTED: 

.R LINK 

«FIRST=TEMP- TMP, SY: PASCAL 

.RU FIRST 

"Things are best in their beginnings" — Blaise Pascal 

■ 

Notice that the PCL command line compiles the source program and 
then immediately runs <eKecutes) the compiled program. Titis is 
known as "compile and go" operation- Compiled programs are stored 
in files with the .SAV extension <FIRST.SAV>. After being 
compiled J the ,SAV prograsi can be executed again" with the* 'R' or 
'RUN' commands. 

Notice also that no errors were detected. T?iis is certainly 
unusual if this is your first program! What happens if there ^re 
detectable errors in the source program? The next example shows 
the result of such an error. 
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In the Beginning ... 

Correcting, the Prggratn 



The follcswing program contains a deliberate error: 

program Second (output) 
begin 

writeln ('Things get worse as they continue'); 
end. 

This prografli is missing a semicolon between the program heading 
and the keyword 'begin'. , Semicolon errors are the most common 
errors made by beginning Pascal programmers. Semicolon errors are 
always detected by the compiler: 



*SECQND 

.RU SY: PASCAL 
*TEMP. TMP, TT: =SECbND/N 
2 BESIN 

**♦»** Expected 'SEMICOLON' missing 

&-rors detected: 1 

Free memory: 11679 words 

.R MACRO 

*TEMP. TMP=TEMP. TMP 



For each error, a line of the source program is printedj^ then an 
arrow indicating the approximate position of the error, and a 
message describing the error- Many compilation errors are 
possible. Bee Appendix A of the Programmer's Suide for a co^lete 
list. 



Pascal -1 V1.2/RT-11 User's Buide Page 8 

Compilation Switches (The Listing) 

The^Prggram . L istinq_,(/L) '_ 

Often, we need to see, more of the program to locate and correct 
the error. The Pascal compiler can be directed to display the 
entire program, with ail detected errors atnd other information. 
TTiis is the 'listing' of the program. To get a program listing at 
your ; terminal, add the /L switch to the PCL. command line: 

' Lr|pcl ' ' ' 

!*< source file name>/L 

To print a listing to the line printer or another destination, 
give a comma followed by the destination file name, an ec^al sign, 
and the source file: 

.R PCL 

* , <listing file name>' = <source file n2Miie> 

Note: listing files are created with the .liST extension. A 
listing of a sample program follows: 

THIRD OMSI Pascal VI. 2S RTll 26-Dec-SO OS: 29 Site #1-1 Page 1 
Oregon Software Portland, Oregon 97201 <503) 226-7760 

Line Stmt Level Nest Source Program 

1 program Third (output) 

2 begin 

****** Expected 'SEHICOLON' missing 

3 1 11 writeln ('Things get hazy if yau stare'); 
42 1 1 end. 

Errors detected: 1 

Free memory: 11677 words 



The listing is printed in pages, with a heading on each page 
showing the program name, the exact version of tHe Pascal system, 
the date and time, and the licensed site identif icatitwr (the 
facility name and site number). 

Four columns of numbers appear on the left side of each page. TTie 
first column, labeled "Line", simply numbers each line of the 
source program. The second column is labeled "Stmt" and gives the 
statement number of the first statement on that line. The 
statement number starts at i for each control secticm, and 
increases by one as each statement is compiled. An up-to-date 
listing can be useful during d^iugging, because the statement 
numbers are used by the Debugger to identify breakpoints. 
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Coflipilatian Switches (Listing for a Complex Program) 

Li stinq„ f qr..,a, CqmpleK , Program 



To illustrate the "Level" and "Nest" columns, a more complex 
program is needed: 

FINAL CH1SI Pascal Vi.2B RTli 26-Dec-SO 09:30 Site #1-1 Page 1 
Oregon Software Portland, Oregon 97201 <503) 226-7760 

Line Stmt Level Nest Source program 

1 ' program Final (output); 

2 , 

3 const Reality = true* 

4 ; : 

5 procedure Objective; 



.6 begin 

7 1 2 1 if Reality then 

8 2 2 2 write ('Things become more compieK ') 

9 3 2 2 else write ('In the Beginning, ...'); 
iO 4 2 1 end; 

11 

12 procedure Awareness; 

13 var'Eye: (Subject, Object); 

14 begin 

15 1 2 1 for Eye := Subject tcf Subject do 

16 2 . 2 2 writelnCas one understands them' > 5 

17 3 2 1 end; 
18 

19 begin 

20 1 1 i Objective; 

21 2 1 1 Awareness; 

22 3 1 1 ehd. 



Errors detected: 

Free memory: 11554 words 

The "Level" column shows the depth of procedure nesting. The main 
program is at level 1, its procedures are level 2, and so can; a 
procedure at level 4 is enclosed by two surrounding procedures or 
functions. The "Nest" column shows a similar nesting of 
statements within other structured statements. 



More on PCL 



The PCL command line can include up to six source files combined 
in sequence to form the complete program. The compilation also 
can be modified by "switches'' in the PCL command line. A switch 
is a slash followed by a letter (such as /L, *(rthich prints the 
listing). The most commonly used switches are shown in the 
following examples. The Programmer's 6uide has a complete list. 
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Page lO 



To further demonstrate the use of the PCL, let's compile and list 
the program E. This program calculates an approximation of E <the 
base lof the natural logarithms) fay summing the series 

l+l/l!+l/2!+l/3!+ ... +1/N! 

until additional terms do not affect the approximation. 

*E/L 



•RU SY: PASCAL 

*temp.tmp,tt:=e 

EX or® I Pascal VI. 26 RTLi 26-Dec-SO 12:58 Site #1-1 
Oregon Software Portland, Oregon 97201 <503) 226-7760 



Page 1 



ne 


Stmt 


Level 


Nest 


Source Statement 


i 








program EXS 


2 








vair E, Delta, Fact: reals 


3 








N: integer; 


4 








begin 


S 


1 




1 


E:= l.os Fact:= 1.05 Delta:= l.Os 


6 


4 




1 


N:= 15 


7 


5 




1 


repeat 


8 


6 




2 


E:= E + Deltas 


9 


7 




2 


n:= N + 15 Fact:= Fact ♦ Nf 


10 


9 




2 


DBlta:= 1 / Facts 


11 


10 




2 


until E = CE + Delta) S 


12 


11 




1 


writeCWith ', N:l, ' terms, '>5 


13 


12 




1 


writeinCthe value of E is', E:18! 


14 


13 




1 


end. 



15) 



Errors detected: O 

Free memory: 11636 words 

Errors detected: O 

Free memory: 11636 words 

.R HACRO 

*TEMP . TMP=TEriP. TMP 

ERRORS DETECTED: O , , 

.R LINK 

*E=TEMP. TMP, SY: PASCAL 

s^'C 

.RU E 

With 11 terms, the value of E is 2.71S280Q00000000 
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The__ Debugger (/D/S) 



We can wptch the progress of the computation and can display 
intermediate values without making any program changes. Fcmt this, 
we use the /D/S switch pair to compile with the interactive 
Debu^gerj-. After compiling, we set a stored breakpoint command •to' 
di!sp]^ay |the current value of E. 



.R PCL 

*e/d7s 

.RU SY: PASCAL 
*TEMP. TMP, E, E=E/D/S 

Errors detected: 
Free memory: 11372 



words 



.R MACRO 

*TEMP. TMP=TE«P. TMP 

ERRORS DETECTED: O 



-R LINK 

*E=TEMP. TMP, SY: PASCAL/C/T 

*sy:a/q:1/c 

*SY:B/o:i/c 

*sy:o'/o:2/c 

*sy:i/o:2/c 

*sy:2/o:2/c 

*sy:3/o:2/c 

*sy:4/o:2/c 

*sy:5/os2/c 

*sy:6/o:2/c 

*sy:7/q:2/c 

*sy:8/o:2/c 

*sy:9/o:2 

Transfer symbol? «START 

*^C 
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,R E 



At this point, the Debugger will prompt you for the name of your 
pragrafliy and you can set the breakpoints. In this exainple. Me set 
the breakpoint at MAIN, 6 because this is the point at v^ich the 
value of E changes in this particular program (see the listing on 
PagellO). We also tell the program to write the value of E at 
that point and then continue. (See the Debugger Suide fc»- details 
of these coininands. ) 



POD fPa^scal Online Debugger) — 24-^i — 79 

POD - Program name? E 

> iiHeiNa.6i <Wii).lC> 

J B 

Breakpoint at MAIN, 6 E:= E + Delta; 

i . OOOOOO 

Breakpoint at MAIN, 6 E:= E + Delta; 

2- OOOOOO 

Breakpoint at MAIN, 6 E:= E + Delta; 

2.500000 

Breakpoint at MAIN, 6 E:= E + Delta; 

2.666667 

Breakpoint at MAIN, 6 E:= E + Delta; 

2. 703333 

Breakpoint at MAIN, 6 E:= E' + Delta; 

2. 716667 

Breakpoint at MAIN,6 E:= E + Delta; 

2.718056 

Breakpoint at MAIN, 6 E:= E + Delta; 

2.718254 

Breakpoint at MAIN,6 E:= E + Delta; 

2. 718279 

Breakpoiht at MAIN, 6 E:= E + Delta; 

2.718282 

With 11 terms, the value of E is 2. 718280000000000 

Program terminated at MAIN, 12 end- 
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Cofflpilation Switches (Extended Precision) 

Extended Precision (/X) 



The coaiputed value is printed with 6 significant digits. For more 
precisian, we can use the /X switch, which means "extended 
precision". With extended precision, 15 si gni-f leant digits are 
computed and displayed. See the Programmer's Suide. 



-RU SY: PASCAL 
♦TEMP. THP , TT : =E/ X /N 

Errors detected: O 

Free memory: 11636 words 



.R MACRO 

*TE«P. TMP=TEMP . TMP 

ERRORS DETECTED: O 

«^C 

.R LINK 

*E=TEMP. SY: PASCAL 

.RU E 

With 19 terms, the value of E is 2.71S2S1S2S4590SO 
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The Pro-filer </P/S) 



Finallyji let's "profile" the prograni by using the /P/S 
cofflbination. The profile listing shows exactly the number of, 
times each line is executeci, allowing us to concentrate on thei 
parts of the program that might be optimized effectively. 



.RU SY: PASCAL 
♦TEMP. TMP, E, E=E/D/S 

Errors detected: O 

Free memory: 11372 words ., 



.R MACRO 

TEMP. TMP=TE«P. TMP 

ERRORS DETECTED: O 

.R LINK 

«E=TEMP- TMP, SY: PASCAL, SY: PROFIL 

-RU E 

Program name? E 

Output profile to: III 

With 11 terms, the value of E is 2. 7i8^JOOOOOOOOOO 

EX OMSI Pascal VI. 26 RTll 26-Dec-a> 12:59 Site #1-1 
Oregon Software Portland, Oregon 97201 <503) 226-7760 

Line Stmt Level Nest Source Statement 
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1 

1 

1 

10 

10 

10 

10 

1 

1 

1 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 



1 

4 

5 

6 

7 

9 

10 

11 

12 

13 



program EX? 

var E, Delta, Fact 
N: integer; 

begin 
1 E:= 1.05 Fact:= l.Os 
1 N:= 15 

1 repeat 

2 E:= E + 
2 N:= N + 
2 Delta:= 
2 until E = 
1 writeCWith ', 
1. writelnCE is', 
1 end. 



reals 



Delta:=: 1.0; 



Delta; 

l; Fact:= Fact * NS 

1 / Facts 

CE + Delta); 

N:1, ' terras, 
E:l8:l5); 



Errors detected: O 

Free memory: 11636 words 
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Your Next Step 



Your Next „. Step, 



Thus ends your guided tour through Pascal -1. At this point, you 
should be able to run a few simple prograois. Before getting into 
co0q3l^x; programs, however, you should consult the Programmer's 
BuideL the Language Specification, and the D^ugger Guide. 



SECTION 2: PROGRAMMER'S GUIDE 
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Introduction 

In trodu ction to the_Pr ogrammer ' s Guide 

The Programmer's Guide describes the way in which the Pascal -1 
Vi.2 sys^tem interacts with the PDP-11 and the way in which sofl« of 
the advanced features of Pa;scal-1 operate. 

This ^uide assumes that you are experienced in prc^ramming with 

Pa4ckl«" '' ' " . 

This ^uide is not: 

1> an introduction to Pascal (see Prograaaisg in Pascal by 
Grogono) ; 

2) a beginner's guide to Pascal -1 (see the User Guide); 

3) a detailed description- of Pascal-1 (see the Language 

Specification); 

In examples, underlining is used to show the text that you should 
t^^e. Ndn-under lined text, shows the proi^ts or other responses by 
the computer. 
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£91Bfiiiaiion_Switches 



The compilation process and the resulting program can be modified 
by switches appearing in the PCa» command line. Switches are a 
single alphabetic character after the '/' (slash) marker, as in 
the command line MAIN/D/S. 



The comftlete set of compilation switches appears below, 
by a detailed description of each switch. 



followed 



/c 


Compile only 


/D 


Debug 


/E 


External 


/F 


Fast reals 


/I 


Improver 


/L 


Listing 


/L:n 


Listing 


/M 


Macro 


/N 


Nolist 


/O 


Object 


/P 


Profile 


/Q 


Quick 


/S 


Source 


/X 


extend 



Complete compilation but no execution 

Debugger compilation 

External module — ioqslies /Q 

Generate calls rather than traps 

Branch/ jump resolution 

Produce compilation listing 

Specify listing page lEHigth 

Partial compilation to assembler .MAC 

List errors only 

Partial compilation to linker .OBJ • 

Prof i 1 er compi 1 at i on 

Uses fast tV^mSfW assess ler 

Include source lines (modifies /D/P/H> 

Extended precision Reals (15 digits) 



L isti ng Egntrol Switches (/L, /L:n. /N) 

The /L switch directs the ccunpiler to produce a listing. The /L:n 
switch indicates that the listing is to be in pages of N lines 
each. The /N switch directs the con^iler to list only lines in 
error;. The /L and /N switches are related to the «L+ and *L- 
embedded switches. 



Partial Cgmeilation Switches 1/Cj. /M^ /O) 

These switches interrupt the compilation process «^en intermediate 
results are desired. 

The /M switch performs only the first compilation step, resulting 
in an assembly source translation of the Pascal program. 

The assembler source file has the extension .MAC. The /S switch 
is recommended with /M and will include the Pascal source lines as 
comments. 

The /O switch performs the conpilation and assembly steps, 
producing a relocatable object file suitable for input to the 
Linker or Librarian. The /O switch is implied by the /E 
(External) switch. 
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Compilation Switches 

The /C switch performs the entire compilation process, but does 
not execute the resulting .program. The program may then be run 
with the R or RUN commands. 

Real Arithmetic Swi tctjes 1/Xx £JEX 

The /X switch causes the compiler to use extended preciscm for 
value^ of type Real. All Real values are extended. It is not 
possible to mix normal and extended precisicn values. Tlie /X 
switch jis related to the.. *X endiedded switch. See the secticm on 
Extended Precision. 

Th^ /F switch is of limited utility. On processors lacking both 
FPi=* kind; FIS I floating-point hardware. Real operations are normally 
performed by a trap of each FIS instruction and simulation of its 
effects. The trapping process requires some overhead, but is 
compact. The /F switch causes the compiler to generate subroutine 
calls rather than simulating FIS instructions. The subroutine 
calls are faster but require an extra word for each floating-point 
instruction. 

Debuqgec: Switch jC/D). 

The /D switch indicates a Debugger con^ilation. "Hiis switch 
causes generation of a symbol table file and, if /S is also 
present, a listing file. The /D switch also causes generation of 
code to identify each procedure and statemrait to the interactive 
debugger. The /D switch is related to the *D+ and *I>- embedded 
switched. See the section on the O^iugger. 

Profiler Switch </P? 

The /P switch causes the inclusion of code for perftM-mance 
measurement, and generates a symbol table file and, if /S is also 
specified, a listing file. The Profiler uses the Rugger- 
interface code, so that VP cannot appear with /D. The /P swrtcft 
is related to the *D+ and *D- embedded switches. See the section 
on the Profiler. 

Source Mdde Switch </§) 

The /S switch performs two distinct functions. When used with the 
Debugger </D/S> or Profiler (/P/S), /S «»ables the source program 
mode of Operation and connects the actions of the Profiler and 
Debugger to the source text of the program. 
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Compilation Switches 

When used with the Macro switch (/M/S), the generated assembly 
langiiiage trainslation will include the Pascal source lines embedded 
as coffli^^ts within the assembly file. This use of the /S switch: 
id r^laii^ed tp the *S+ and *S- embedded switches. 



Exterjnal Modul e Switch UEl 

Ttie /E Siwitch indicates an external module ccn^ilatican. This 
causes the outermost procedures and functions to be identified to! 
the Linker with global entry names. fin external module can' 
include global declarations, procedures, and fimct ions but is not 
required to include a main control section. TTte /E switch is: 
related; to the $E embedded switch. See the External Module 
sections The /E switch should not be used to coi^ile the main 
program; that calls external procedures. 

Branch /Jump IfflBCoygC Switch </I) 

The /I switch inserts an additional step into the con^ilation 
process^ a branch/jump resolver <Itff*>. ifff* r^jlaces branch/jump 
combinations with a single conditional branch wh^-e passible. The 
Improver runs slowly, but typically reduces program size by 6 to 8 
percent. IMP is recommended only for compilation of fully 
debugged production programs. 

Fast Assembler Switch </S.), 

The /Q switch causes the compilatitni process to use the I^C.SAV 
assembler instead of the f^lCRO ass«rtiler. MMI.SAV is a 
singl<e-pass assembler that has no macro or local sv^abol 
capabilities, but it asseiid3les cc^siler output in about one third 
of the time required by the RT-11 P»M:R0 assembler. 
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Embedded.^Swi t ches 

Embedded switches provide control of coaipilation options within 
the Pascal source program. Embedded switches have the form of a 
Pascal comment beginning with a dollar sign ($) » followed by d 
single L^spercase alphabetic character and possibly a plus or minus 
sign, as in (**L+*) . Several of the endaedded switch functions can 
alsoi b^ provided by con^ilation switches. Embedded switches have 
the advantage that, once included in a program, they cannot be 
accidentally omitted from a conqjilation. 

The complete list of embedded switches belts** is fallowed by a mcH^e 
detailed description of each switch function. In general, a plus 
sign enables a particular function, and a minus sign disables it. 
Switches that are initially enabled are marked with C+3; switches 
marked CMBF3 ('must be first') must appear before any Pascal code. 

*A— ,$A+ Array bounds Include array bounds check £+3 

«C Code insert See' the Eodiedded Assen^ly Code section 

*D-,*0+ Debugger Include debugger interface 

$E-!,$E+ External External module compilation 

*F-,*F+ Fast FIS Enable floating— point calls 

*L-,*L+ Listing Source lines in listing C+3 

*S-,$S+ Source mode Source lines in assembly 

*T-,*T+ sTack check Include stack ova-flow check £+3 

*X extend Extended precision reals £WK=^3 

Er r or- Chec king Switches ($A. $T> 

The *A switch ccHitrols the generation of code to check each array 
referjende and ensure that the index is within the bounds of the 
array. Bounds checking is, initially enabled; the «A- switch will 
disable checking. If enabled, each bounds check adds 8 words to 
thfe siize: of the program. 



The *T switch controls stack overflow checking, and is initially 
enabled. Stack overflow is possible upc^ entry to any procedure 
or function block. This check can be disabled with *T-, with a 
small savings of memory (2 *M3rds per procedure). 

Debugger/Profiler Switch ($D) 

The *D switch controls the interface code to the Debugger and 
Profiler. If enabled, each statement and procedure includes 
instructions to call the Debugger or Profiler. These instructions 
require 1 to 3 words per statement CI word for statements 1-255 of 
each procedure, 2 words otherwise, and an additional word if /S 
source mode is enabled). In large programs, one may choose to 
disable debug interface code generation for sections known to be 
correct. 
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Embedded Sinitches 



External Module Swit ch 1*E>. 

Enabling the $E switch causes global procedures and functions to 
be Isdseled as external entry points in the r'elc3catable abject 
file. A main program section is ignored if it is encountered when 
the $E switch is enabled. .See the External Module section. 

Real i Arithmetic Mode Switches ifXj, $Fi 

The *X switch enables extended precision <15-digit) real 
arithmetic. If prefsenti the *X switch oust precede any Pascal 
code; You cannot mix normal and extended precision in one 
pr|-ogramii so that each module in separate compilations must be 
cbmpxle^l with the same precision. See the Extended fVecisiori 
section^ * 

The *F switch is useful only on processors lacking FIS and FPP 
hardware for floating point calculations. On these processors, 
floating-point instructions are normally trapped and simulated. 
The *F switch instead causes direct subroutine calls to 
floating— point routines, saving about 0.2 milliseccmds per 
floating-point instruction at the cost of an extra tutwd. 

Listing Control Switch jC*Ll 

The *L switch controls the appearance of lines in the* program 
listing file. If enabled, all prcreir am text will appear in the 
listing. If the »L switch is disabled, cHily lines in error and 
error messages will a^apear. 

Source Mode Switch <*S) 

Enabling the *S switch causes the Pascal scMirce lines to appear as 
ccifMtents in the compila- asseiobly output. This makes it easi^ to 
detei^mihe the code generated few each statement - This switch also 
mcidifies the behavior of the Debuggra^ and Profiler. 



Pascal -1 V1.2/RT-11 Programmer's Guide Paqe 26 

I/O Control Switches 

iZQ-SSDJtrol^Switches __^ 



The Reset (} and Rewrite () standard procedures accept additional 
argudients specifying a Filename of an external file, and d 
DefaultName with default fields of the filename. These argunents 
can also include I/O control swi tches, which give explicit ccHitrol 
of the operating system interface details. 

The I/O switches appear in the Filenaflie or DefaultName parameters 
as in this example: 

Rewrite (F, 'data. dat /seek/span/size: 12. ' ) 5 

A special device (TI:) also may appear in the ResetO mtd 

Rewrite (} calls. flie TI: device connects to the Pascal -i 

terminal driver and is used in place of the TTs driver for 
interactive use. 

A complete list of I/O switches appears below, followed by 
individual details. All switches may be abbreviated to the first 
two letters. 

/buffersi2e:n Allocate' N bytes for buffer 

-^go Allow programmed error handling 

/odt Single character terminal input 

/nfs Non-File— Structured access 

/seek Direct-access file 

/size:n File storage allocation 

/span Records span block boundaries 

/temp Temporary file 



/gUFFERSIZgin Switch 

Pascal -i normally allocates the mini mum sps^e required for a file 
buffer, which is usually 512 bytes but is d^iendi^^t an device and 
file characteristics. Hc»-e effici«it I/O trstfisfers can be 
performed at the cost of additional memory. The /Bu'ffa^si2e:n 
switch specifies the storage to be allocated to a file buffer. 
The size value is a decimal number if terminated with a period, 
otherwise octal. 



/SO Sw itch 

I/O transfer errors are normally fatal and cause immediate program 
termination. The /So switch indicates that transfer errors on the 
specified file are Hon— fatal and allow program execution to 
continue. In using this switch, the programmer accepts 
responsibility for checking the RT-11 I/O status code after each 
I/O operation. The error code for the previous I/O transfer error 
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I/O Control Switches 

is available in the byte at address 52B. 

/OPT ^witch 

ThL ')a&i switch derives its nanie from the ODT Debugger (Octal 
Debudgiog Technique), which is driven by single char act er 
coinmSnds. The /ODT switch is used with keyboard files, and 
indicates that each character read from the file is to be, 
prbc3ssed immediately without any wait for a "r^if?e ^^turn or; 
other action character. The /ODT switch also disables_the normal 
one character buffer effect of the ReadO standard procedure- 

The rubout and ctrl/U keyboard editing capabilities are not 
effective on terminals open with /ODT. 

/NEi Switch 

The /NFS switch is used when you desire non-f ile-structured access 
to a device that is normally file-structured, such ^sa disk 
device. Because direct access to such a device can destroy its 
directory structure, Pascal-1 prevents non-file-structured access 
unless the /NFS switch is used. 

/SEEK Ssji tcti 

The /Seek switch performs two functions: it enables the use of 
the direct-access SeekO procedure, and it permits t«**^ ^^jj J"** 
w^ite access to the file variable so that records may be updated. 

/SI2E:n S wi tch 

The /Size switch used in the RewriteO PT^^^^^^Jf^* jj^-i^ 
space to be allocated for thp file. The size ^^ .^*^® Jj,!^ *1.^*^ 
in blocks of 512 bytes, and is a decimal number if terminated by a 
period, and octal otherwise. 



/SPAN Switch 

in files created or accessed by Pascal-i P*^*^:^"?' "^J^-^f^^^J 
records are normally 'blocked'. ^Pf\,««f"^ *'75\^" ""^^^-th 
number of records are stored in one disk block of 512 bytes, mth 

any remaining storage in that ^'l^^^,^^*"^ ""«^- J^^ '^^^ 
switch packs records more efficiently, with r«=°'^«='5^?Pf""^"\Jj°" 
one disk block to the next. This requires additional buffer 
memory, which is automatically allocated, and some additional 
computation. Spanned and blocked files are ""^^ generally 
compatible. Files created, with /Span should be read with the same 
switch. 
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/JEflP Switch 

This switch is used in RewriteO to indicate a tei^orary -file that 
will: be deleted on termination. No filename is needed if this 
switch appears. 

The , Pr gjF, i 1 er ; ^ 

The IVofiler identifies the sections of a program that can be fliost 
ef f ectiVely i optimized. Empirical flseasurei^Hits shew* that typical 
progipams consume a large fraction of their ccmputation tiii» in a 
si^all portion of the program code (••90X of the time in 10% of the 
code^lii The Profiler counts the actual number of times each 
statement is executed and each procedure is activated, and 
displays this information either in the program listing or in a 
tabular form. 



The /P switch appears in the compilation ccMimand to invoke the 
Profiler- "Rie /S switch is reccH^iended in additicm for more 
convenient display of the profile information. 

Mhen the Profiler begins executing, it will ask " for the' program 
name. The Profiler uses the symbol table and listing files 
produced by the compiler to identify procedures and stat^nrartts in 
the program. The symbol table file normally has the same name as 
the program and the extension .S\li, and the listing file normally 
has the extension .LST. The Profiler will ask for the correct 
filenames if the normal files are not available. 

The Profiler will then ask for the desired destination of the 
profile information. TTie profile will be nn-itten to the specified 
file mith the default extension .PRO. This should be a permanent 
file <disk or hard copy device), as the Profiler rec^ires roughly 
a factor of fifty performance overhead t^tile gathering 
information. 

The program being measured will then execute nc^mally, although 
somiBwhat more slowly. Upon normal termination, car any fatal 
error, or ctrl/C interrupt, the profile information will be 
written to the specified file. 

The first section of the profile is the Procedure Reference 
Profile, which lists each referenced procedure and function with 
the count of calls on that procedure. The second sect i cm , is , the 
Statement Reference FVofile, displayed in tabular forinat. If the 
/S (source)- switch is specified, this section displays the program 
listing with an additional column containing the reference count 
for each line. 
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The Profiler is limited in several respects: only the first lOO 
statements in each procedure will be counted, and a maximum of 40 
procedures and functions can be profiled. The $D- and *D+ 
embedded switches can be 'used to selectively enable and disable 
profiling. 



Example: 

PRirES CJMSI Pascal VI. 2G RTll 26-Dec--80 8:14 Site #1-1 
Oregon Software Portland, Ch^egon 97201 (503) 226-7760 

Line Stmt Level Nest Source Statement 
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; 


1 








2 








3 








4 








5 




■ 




6 








7 








8 








9 






1 


lO 


1 i 


L 1 


1 


11 


5 3 


L 1 


i 


12 


6 J 


I V K 


2499 


13 


8 J 


I 3 


illt>3 


14 


9 3 


I 4 


lllb^ 


15 


10 1 


L 4 


3t> 


16 


12 i 


I .6 


35 


17 


13 3 


I 6 


35 


18 


14 1 


L 6 


35 


19 


15 ] 


L 6 


11153 


20 


16 i 


L 4 


11153 


21 


IS i 


I 4 


94012 


22 


20 3 


I ■■ 6 


28669 


23 


21 3 


L 7 


94012 


24 


22 1 


L 6 


94012 


25 


24 3 


L 6 


11153 


26 


25 3 


L 4 


2499 


27 


26 1 


L " .3 


2499 


28 


28 3 


L 3 


1 


29 


29 i 


I 1 



program Primes; <* ^kithra^: N. Wirth *) 
cc»ist l*=^K>05 <* first 2500 Primes *) 
type Zndex=l..N$ 
V3tr X, Square: integer; 
I,K,Liffl: Index; 
Prime: Bfsolean; 
P: array£Index3 of integer; 
V: arrayCi..l003 of integer; 
begin 

PE13:=2; X:=l; Lim:=l; Square: ==4; 
write (21; 

for IS =2 to N do begin 
repeat 
X:=X+2; 

if Square<=X then begin 
VCLi m3 ; =Sq^are; 
Liffl:=Lim+l; 

Square: =^i:Liffi3«PCLiffl3 ; 
end; 
K:=2; Prifi«s=true5 
while Prime and <K<Liffl) do begin 
if VEK3<X 

then VEK3:=VEK3+PCK3; 
Pria»: = <X<>Vi:K3); K:=K+l; 
end; 
ttfitil Prime; 
PCI3:=X; wite(X>; 
end; 
end. 
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Format and Cross-TRef erence, (PASFMT) 



The PASFMT utility supplied with Pascal-1 will automatically 
reformat a Pascal source program, adjusting indention and 
partitioning statements so that a program listing reflects the 
program structure. TTie PASFMT program can also provide a 
cross— reference index of a Pascal source program showing block 
calls, nesting, and identifier references, 

TTie PASFMT command line can 'contain one or two output files, an 
input source file, and several t^tional switches. Run PASFMT as 
follows: " 

-R PASFMT 

PASFMT V2.0 <10Dec79) 

*<Format >, <CrQSsref >=<Source>/swi tches 

The Format output file is the formatted source program. Several 
switches select token translation opticHis: 

/L Lowercase Lowercase identifiers, uppercase keywcvds 
/M Mixedcase ijNichanged identifiers, uppercase keywords 
/U Uppercase All letters uppercase 

The Crossref output file (if specified) normally contains the 
program listing with line and page numbers, fol lotted by the 
procedure call and nesting index. T»ra switch options apply to the 
cross reference: 

/C Crossref all Cross reference all id^^itifiers 
/N No listing Produce only crossref index 

■ 

The /C switch may be used only for source programs of moderate 
size, because of memory limitations. 

Jhe,. Improver.,. (IMP) 

The utility program Ifff> decreases the size of the object code 
produced by Pascal-1 by replacing branch/Jump con^i nations with 
single branches when possible. Itff> will reduce the generated code 
by roughly 5 to 8 percent. 

irff* is included in the compilation process by the /I compilation 
switch, as in the command line TEST/ I. 

Note that ir^ runs quite slowly and therefore is recaittsended for 
use only on completely debugged production programs. 
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Dynami c „Str i ng_Pac jkagg 



A package of procedures and functions for dynamic string 
processing is supplied with Pascal-1 VI. 2, and is stored in the 
filejSTRIN6.;PAS. The package is written in Standard Pascal, and 
aliloiiis programs using strings to be moved to other PascHal 
i flki 1 eeteijit at i| on s . 

Strings! Bre :stored as a record structure with a fixed max i mum 
nufirij^ of characters (normally 100 but easily changed), and ad! 
integer i marking the current length of the string. 

type String = record 

Len: Integer; 

Ch: packed arrayjli. .StringMaxJ of Char; 
end; 

The. capabilities provided are: 

Len(S) — returns the current length of string S; 

CI ear (S) — initializes string S to eaqsty; 

ReadString(F,S) — reads a value for string S from the text file 
F. The string is terminated by Eoln<F) and a Readln<F) is 
performed. String overflow (a string longer than StringWax) 
results in truncation- 

WriteString<F,S) — writes the string S to the text file F. The 
saf^ effect can be achieved by passing the parameter S.C^rS.Len 
to i*-ite<), as in Write(F, 'S=' ,S.Ch:S.Len) . 

Concatenate (T,S) — appends string S to the target string T. The 
resiulting value is string T. Overflra* results in truncation to 
StringMax characters. 

Search <T,S, Start) — sear chs string T few- the first occurrence of 
string S to the right of position Start Ccharacte-s are numbered 
beginning with one). The function Search <) returns the position 
of the first character in the matching substrings or the value 

zero if the string S does not Sippeskr. 

Insert (T,S, Start) — inserts the string S into the target string T 
at position Sta-t. Characters are shifted to the right as 
necessary. Overflow produces a truncated target string. A 
Start position that would produce a non-contigucms string has no 
effect. 
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The Start and Span parameters in the Substring and Delete 
procedures- define a substring beginning at position Start (between 
characters Start-1 and Start) with a length of Abs(Span>. If Span 
is posijtive, the substring is to the right of Start; if negative,! 
the substring is to the left. 

Delete <S, Start, Span) — deletes the substring defined by Start, 
Spiui from the string S. 



.1. 



Substring(T,S,Start,Span) — the substring of string S defined by 
Starts Span is assigned to the target string T. 

1 ■ I ■ I 

I i : % 

An example of the use of the string package is given belf»«. The 

example reads a line from the terminal and separates it into 

single words. The compilation command to PCL should be 
"StRINSjEXAMPL". 

type Lit = packed array i:i..i03 of char; 

procedure Literal (var T:- String; Ch: Lit; M: integer); 

var I: integer; 

begin - • 

Clear <T>; 

for r := 1 to N do T.ChCI3 := ChCIJ; 

T.Len := N; 
end; 

var Space, Line, Mord: String; 

Mark: integer; 
begin 

Literal (Space, ' ',1); C make 1 char string J 

write CTinpje a line: '); 
I ReadStringdnput, Line); 
Concatenate (Line, Space); 
Mark := Search (Line, Space, i); 
; while Hark > O do begin 

Substring (Mord, Line, 1, Mark - i); 
if Len(iilord) > O then begin 
Wr i t eStr i ng ( Ckitput , Word ) ; 
writeln; 
end; 
Delete (Line, i, Mark); 
Mark := Search (Line, 'Space, 1); 
end; 
snd. 
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External __HQdul es ] . 

External modules allow several program sections, each containing 
at least one procedure, function, or main program, to be compiled 
independently and combined at link time. External modules may be 
combined into module libraries to simplify -handling of common 
routines. The external module interface also allows inclusion of 
modules written in other languages, such as FORTRAN and ilAOK). 

The EXTERNAL directive is used to reference a procedure t^j 
functrion in an external module. TTie declaration of an external 
procedure or function contains the procedure or function name and 
parameters, fallowed by the directive EXTERNAL (similar to 
FORWARD). The procedure or function body does Hot appear in the 
progrfam unit referencing the external routine. 

The FORTRAN directive ri^laces EXTERPffiL to reference external 
routines written in FCmTRfiSi or MACRO. The FCfftTfW«4 directive 
causes the generation of a PDP-ll standard calling setfuence <the 
Pascal calling sequence places parameters on the stack, while the 
FORTRAN sequence points R5 to a list of parameters) « 

The /E compilation switch and the *E embedded switch are used to 
create modules that can be referenced by EXTEIWAL directives. 
When the $E switch is enabled, each global procedure and function 
declaration causes an external (global) syaAiol to be defined. 
These global symbols are matched at link time to the global 
references created by the EXTERNAL directive. 

The ex ter nail reference symbols are composed of the first six 
characters of the external procedure or functitsn identifier, and 
must uniquely identify the external routine. Dt^lication or 
overlap of external syn^ols results in the Link error 'l*iltiple 
definition', while a missing module results in the 'Undefined 
global' error message. 

Several cautions should be observed when you use EXTERNAL and 
FORTRAN directives. Parameters to external modules cannot be 
checked by the compiler for type conformance, so an accidental 
type mismatch may cause entirely unpredictable results. The 
FORTRAN directive causes only generation of the props- calling 
sequsice; the directive does not link or initialize the FORTRAN 
I/O system. 

External modules may reference global (static) variables, which 
are shared by all of the modules composing a program. If all 
modules (including the main program) are compiled with the same 
global variables, the effect is as if all modules were compiled 
together. The compiler cannot verify type conformance of global 
data. 

When combining modules to form libraries, remember that all 
procedures -and functions from a compilation form a single module. 
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and cannot be individually selected -from the library. The module 
name is taken from the- HFirst six characters of the program 
identifier (in the program heading). 



The_Linker, Li braria n, and Overlays 



Object modules produced by the Pascal cosipil^- using the /O or /E 
compilation switches are compatible with object mcHJules produced 
by the MACRO assembler, FORTRAN coispiler, and other RT-11 systeot 
utility programs. The Linker (LIlvHO can be- used to produce 
overlaid executable prograuBs, allowing much larger prograffls. • Ttie 
Librarian (LIBR) is used to build libraries of object modules for 
more convenient handling. 'Some highlights of Linker and Librarian 
capabilities are covered here. See the RT— 11 System User's Suide 
for complete details. 

To run the Linker, give the command 

-B LINK 
# 

('*' indicates that the Linker is waiting for a command). The 
first command line can include -the output file, a map file if 
desired, and up to six inpat files. The file PASC^H..OBJ, which 
dontains the Pascal run-time library, must a^pmsr in every Pascal 
link procedure. The /C switch (continue) allows commands to be 
continued onto the next line. 

*OUT. MAP=MAIW,SUB1 jLIBl/C 

♦PQiSea- 

The overlay facilities of the Linker are selected' with the /OSN 
switch, where the parameter N indicates the overlay regicMi number. 
Sets of modjules that are allocated to the same region will be 
overlaid against other modules in the same region, with wily one 
set of modules per region actually in memory at any one time. 

The fallowing sequence links a main program, an external aiodule, 
and the Debugger into an overlaid executable file. The main 
program, external module, and the Pascal library are not overlaid. 
Debugger modules A and B do not call each other, and are overlaid 
in region 1. Debugger modules 0-9 do not call each other, and can 
be overlaid in regitsn 2. 

When using overlays in V4 of RT-11, you must use the /T switch to 
explicitly set the transfer address to the symbol *ST ART. The /T 
will avoid a bug in the V4 linker. 
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•R LINK 

*PRQS=riAIN. SUBl . PA5CAL/C/T 

♦p:a/o:i/c 

*P:B/0:i/C 

*P:b/0:2/c 

*P:i/0:2/c 

*p:2/o:2/c 

*P:3/d:2/c 

♦P:i|/0:2/C 

♦p;5/0:2/c 

*p:6/o:2/c 

♦P:7/o:2/c 

♦p:8/o:2/c 

*p:9/o:2 

Transfer symbol? *START 

The Librarisun combines relocatable object modules to forrt! object 
libraries. . These libraries may be included as input to the 
Linker, Mhich will select only those mtxlules needed by the program 
being linked. Note that a module always ccmsists of the entire 
set of procedures and functions from its compilation. Individual 
procedures cannot be selected from a module. 

For example, the string package STRINQ-PAS can be edited to form 9 
modules, with each module containing one procedure or function. 
The 9 modules can then be compiled, and combined into a library as 
follows. 

.R LI^ 

*STRiNS=LEN. CLEAR. f^ftPS. WRITES. CC»IC/C 

♦SEARCH, INSERT. ^LETE. SUBS 

♦"C 



Embedded As sembly Code 

PDP-ii assembly code can be embedded within an Pascal -1 program at 
any point where a comment might appesur. Embedded assembly code 
takes the form of a special comment beginning with the embedded 
switch *C5 as in the comment 

C*C MOV %0,-(%6) > 

The assembly code section extends to the closing comment brace 
(this closing brace must not be in an assembler ct^rnnent). Any of 
the capabilities of the MACRO assembler may be used. 

The Pascal -1 compiler scans the embedded assembly code and 
replaces tokens within the code that correspond to certain classes 
of Pascal identifiers. This provides simplified access to Pascal 
data and control structures. However, the programmer is required 
to have some understanding ,of the internal structures. See the 
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section on Run-Time Memory Organization, and examine the code 
produced by the compiler. Constant identifers appearing in 
assembly code are replaced fay their defined values. Variable 
identifiers are replaced by the numeric offset from the 
appropriate base pointer. For global variables, the base pointer 
ife Register 5 (R5) 5 for local variables, the stack pointy- (SP) 
is the base. For exaiqsle, to swap the halves of a local integer 
variiable I, the code would be 

k*C SWAB I (SP) J 

apd ^o assign the constant Ten to the global variable Count one 
can, i^^iite 

I :' I, :, 

I ' : ■ 

k:*C MOV #TEN, COUNT <R5) J 

Any temporary stack usage is not recognized by the compiler, and 
must be included in indexed addressing of local variables. 

Parameters of Pascal procedures and functions are treated as local 
variables, and are accessible in the same fashion. Internally, a 
Var parameter is the addTress of the actual parameter, so 
references to \fsur parameters must be indirect, as in 

<^C MOV ©VAR(SP),RO > . 

Procedure and function identifiers are replaced by the internal 
label assigned by the compiler. To assign a value to a function, 
it is best to move the value to a local variable and then use a 
Pascal assignment statement to cc^y the value to the function. 

The programmer is responsible for selecting the prop^ base 
register, as the compiler provides no errof — checking capability. 
Identifier substitution is performed for all identifiers in these 
classes. TYiis can cause prcrislems if the prografl^er defines *^an 
identifier corresponding to a Mf^^^ instructicm, such as a 
constant named 'MOV*. 

With one exception, registers RO-^!i4 are available within embedded 
code sections. the exception is With staten^nts, each of **»ich 
maintains a fixed address in a register. "With" register 
allocation is in the order R3, R2, Ri, RO and can be determined 
from the Pascal program. Registers R5 and SP must be preserved 
across the range of an embedded code section. 

The default numeric radix of a Pascal -produced assembly code file 
is decimal, not the normal octal. 
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A PDP-11 program has an address space of 32,768 words, cm- 32KW, or 
64KB CIKW is 1024 Mords) . The figure below shows this address 
space as it might be allocated for a typical program of moderate 
size. 
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This figure represents a snap^iot taken during program execution, 
illustrating the partitioning of availsdsie memory. Each partition 
is described; in the following sections. 

R T-11 Vector s and Commu nica tion 

The RT-11 Vector parti ti cm begins at address zero and cwrcupies the 
first 256 words of all .programs. This area contains interrupt 
vectors and RT-11 status indicatcH^s and also is used for 
communication between the Pascal program and other programs linked 
by chaining. 

Program Code 

The Program Code partition contains all of the instructions of the 
user program, including overlays, external moduLes, and routines 
from the run-time library. The partition is .allocated, memory 
adjacent to the RT-il Vector partition. The size of this 
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partition depends entirely on the size of the user program. 

1 

e io bil Variables 

The eiobal Variable partition ccmtains all of the program's global 
variables, those defined in the outermost, or main, block of the: 
program. This partition is fined in size during program; 
execution. 

Register 5 (R5) points to the base of the .Global V^-iable 
partition and is used for access to global variables. 

Dynamic Me mor y z:z T he Hea^ 

The Dynamic Memory petition ccmtains I/O control blacks and 
buffers, and variables allocated by the NewO procedure. The Heap 
is uniciue in that it is not allocated any memory initially, but 
instead expands as necessary. The Heap is allocated adjacent to 
the Global Variable partition, and may groM on demand to the upp&r 
limit imposed by the Stack partition. The error message 'NewO 
exceeded memory' indicates total exhaustion of memcM-y resources. 

Local Variables i^l Ibg Stack 

The Stack partition contains all vari^Jles local to inner blocks 
of the program, and is also used fcM- temporary calculations, 
parameter passing, and su^rcmtine return information. At the time 
a block is entered, a stack frame is created. The stack frame 
contains all information local to that block. Stack f raises are 
created and released in a purely nested fashion. See below for a 
detailed description of a stack frame. 

The current Stack frame is always pointed to by the Stack Pointer 
(SP, register R6) , which initially points to the top of the Stack 
partition. As nested Stack frames are allocated, the ^Stack 
Pointer decreases in value (points to lower addresses). If the 
Stack partition is too small, the Stack Pointer will eventually 
overrun the Heap partition and cause the 'Stack exceeded memory 
error. 

Note that the Stack is located at the high limit of user memory, 
and that the USR, if swapping, will swap over the Stack. This 
will cause problems for programs that call the USR via embedded 
assembly code, or by external non-Pascal subroutines. The 
simplest solution is to use the 'SET U^ r^HJSWAP' command to make 
the USR permanently resident. Another solution is, for each USR 
call, to save the current stack pointer (SP) , and then set the SP 
to low memory (lOOO) before pushing USR parameters onto the Stack. 
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RT-11 Resident Monitor 

This area is at the high limit of available physical memory, and 
contains the fixed RT-11 Resident Monitor, the User Service 
Rbutjine (US^) if it is set NOSWAP, and any device handlers loaded 
withj the LOAD command. 



I/O fiaqe 

The I/O Page of address space contains all device 
cammand registers and internal processor registers. 



status and 



6 QioseuQ of the Stack Partition ziz Ihe Stack Frame 

t 

The Stack partition is entirely composed of Stack- Frames. A Stack 
Frame is created during entry to every block f excluding. the main 
prngrsm block), and is released when the block is exited. The 
following diagram illustrates the possible compon^ts of a Stack 
Frame. Most of these componients are optional. Only the Return 
Link is required in every Stack Frame. 
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Function Return Value 

This -field- is present in Stack Frames associated with function 
blocks, and holds the value to be returned by the functicm. Its 
position at the bottom of the Stack Frame allows the field to b^ 
'popped' from the stack when control returns to the caller of this 
block; 



Parameters 

The parameters field contains either parameter values or their 
addresses. | Blocks without parameters do not have this field id 
tbeiif Stack Frame (s). 



Return Link 

This field is the subroutine return address, where control is 
transferred on exit from this block. 



Local Variables 

This field contains all local variables for this block. It does 
not appear "for blocks without local variables. • 

Static Link 

The Static Link appears ■ cmly in blocks which are lexically 
enclosed by other procedure or function blocks. The Static Link 
is usied for references to intermediate level variables in the 
enclolsing block (s). The Static Link points to the base of the 
Stack Frame of the latest invocation of the immediately enclosing 
procedure or function block, and it is the first link in the 

Static ilink chain. 

i 

The Stack Pointer <SP> is also used for transiait temporary 
storage, as in interrupts and Pascal library calls, and each For 
statement requires 3 words of temporary stack storage during its 
execution. 
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Foreground Operation 

For foreground operation, you must allocate additional, memory to 
ensure that you will have enough ^ace for Pascal variables and 
file buffers. Each Pascal file requires about 300 words (BHwe for 
large buffers), so you should allocate at least -600 words for the 
default input and output files- Use the /N: switch for. V3 and 
the /BUFFER; switch for V4S 

i.FRUN <file name>/N: 1024. <V3) 

'■ i 

.FRUN <file naffle>/mJFFER: 1024. <V4) 



Ext ehdei d Precision 



Values of type Real are nra-mally stored in the PDP-11 
single-precision format, t^ich recpjiires 2 words of stcwage per 
value and offers 7 d»:imal digits of precisic»i. The /X 
compilation switch or ttie *X embedded switch causes all Real 
values to have extended precision. Extended precision values each 
occupy 4 words of storage, and provide 15-digit precision in all 
real calculations, including the transcendental functions. 

Extended precision applies to all Real values in a progr^a. You 
cannot mix normal and extended precision variables. Ail ext«-nal 
modules must be cc»npiled with the same precision as the main 
program, even if no Real var'iables are present. 

Compared to normal precision Real variables, extaided prmrision 
variables . require twice . the sttwage. The effect on computation 
time is dependent on the processor hardware: the FPP 
floating-point processor provides hardware support for extended 
precision with a slight performance penalty <30%)5 processors 
with the FIS floating-instruction set will experience the most 
severe relative performance penalty (20 to 1), because FIS offers 
no extended support and extended calculations are performed 
entirely in software; processors lacking any floating-point 
hardware can expect a performance penalty of about 100%. CEven 
so, the net effect on the program is still very small.) 
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IhS-System Error <) Procedure 



Whenj a fatal run-time error occurs, the system procedure Error () 
is called with parameters describing the error and the system 
state. I The Error <) procedure is known by the global name ERROR, 
and I may be replaced by a usei — written external module of the same 
name. The external module must accept the paraoieters defined 
below. I 

type Class = <Fatal, ZOErr or, Warning > ; 

Message = packed arrayCl. . 1003 of Char; 
procedure Error ( 

ErrorClass: Class; 

ErrorNumber: Integer; 

&-rorMsgLength: Integer; 
var ErrorMsg: ^fessage; 
var XFile: Text; 

IC^tatus: Integer; 

UserPC: Integer; 

FilenameLength:. Integer; 
var Filenane: Message; 
) 

The ErrorClass parameter indicates the type and severity of the 
error; Fatal and lOError are errors with no possible recovery, 
indtile Warning errors will recover automatically. The ErrorNumber 
indicates the exact cause of the error. B-rorMsgLength and 
ErrorMsg define the text of the printed error message normally 
displayed for this a-ror. TTie XFile parameter identifies the file; 
variable associated with this error, if any. lOStatus is the 
value of the RSTS/E I/O status word. UserPC is the program 
counter saved at this errcw, which can often be used to identify 
the program segment re^onsible for the error. Finally, 
FilenameLength and Filename describe the external name associated 
with the file variable XFile. 

The' passible courses of action available to the Error <) procedure 
are very limited, as exiting from the Error <> procedure normally 
results in termination. The program global variables are 
available and may aid in diagnosing the problem. The Error (> 
procedure may provide operator interactic»i or recording 
capabilities beyond the ncHrmal messages to the terminal, and as a 
final resort may call on operating system facilities to 'chain' 
and restart the program or initiate another program. 
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CQmp,ijLer_ErrQr_Messa qes , 

' , ' used i nstead of ' ; ' 

8 or 9 in octal constant 

Argument must be integer 

Argument must be ordinal type 

Argument: must be real 

ARRAY index jout of range 

AWlAy i^dex jtype error 

Bad ^BS argument 

Bad argument 

Bad CASE label 

Bad coiji^tant 

Bad ^XI+ ' 

Bad expression 

Bad field list 

Bad FIL£ name 

Bad FOR statement 

Bad FUNCTION name 

Bad FUNCTION result type 

Bad IN operands 

Bad index type 

Bad LABEL 

Bad ORIGIN for variable 

Bad • paratneter 

Bad PROC£Dl^E nai^ 

Bad PROSMM name 

Bad READ statement 

Bad RECCH^O 

Bad scalar type 

Bad SET element 

Bad subrange 

Bad TYPE 

Bad TYPE ^ecifi cation 

Bad variable list 

Bad variant 

Bad WITN statement 

Bad hKITE statement 

Boolean expression needed 

Constant overflow 

Don't repeat FORtdflHD paroaeta- list 

Duplicate CASE label 

Duplicate field name 

ELSE must be last in CASE 

Expression too complex — out of registers 

Expression too complex — out of registers (real) ■ 

Field list must be in parentheses 

F~ile variable missing 

Format expression must be Integer 

FORTRAN must be VAR parameters 

FUNCTION arg must be real or integer 

FUNCTION argument missing 
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Illegal assignment 

Illegal character 

111 egal operator 

Illegal type of operand 

Improper symbol 

Incompatible ARFMY type 

Incompatible type 

Invalid declaration, probably missing END 

Invalid sysnbol 

LABEL defihed at wrong level 

Label must be integer 

LABB. not declared 

LABEL redefinition 

Local V^ definitions must precede PROCEDIH^ definitions 

Missing ')' 

Missing ')' at end of list 

Missing '.' at end of program 

Missing BE6IN 

Missing END 

Missing END in CASE 

Missing field variable 

Missing LABEL 

Missing label definition 

Missing operand 

Missing operator 

Mi ssi ng semi col on 

Missing UNTIL 

Must be simple variable 

NEM or DISPOSE arg must be painter 

Not implemented 

ODD argument must be integer 

Catput file error 

Source line too long 

Strange 'C — bad SET or missing ARRAY definition 

TEXT file expected 

Too few arguments 

Too many arguments 

Too many errors in this line 

Too many errors! 

Too many levels 

Too many symbols 

Undefined FORWARD PROCEDURE or FUIv«:TION 

Undefined operand 

Undefined pointer base typ^ 

Undefined sys^ol 

Unresolved fear ward type reference 

WITH nested too deep 
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R un— Ti me Error Messages. 



Bad |f iljename 

Can'jt Reset |( output) 

Can't Rewrite (input) 

Compile/library mismatch — please recompile 

Disp|ose<nil) atteapted 

Division by zero 

Duplicfite Dispose () 

End of filei 

ExpO overflow 

File not open 

Floating-point format error 

SetC) not allowed 

I/O transfer error 

Illegal value for integer 

Integer overflow 

Logo of zero or a negative number 

NewO exceeded memory 

NewO of zero length 

No channels available 

No file to Reset () 

Overlay error 

PutO not allowed 

Real overf 1 ow 

Reset <) failure 

RewriteC) failure 

SeekO on sequential file 

SeekO out of range 

Set element out of range 

SqrtO of a negative number 

Stack exceeded flmmory 

Subscript out of bounds 

Trunc/ round overflow 

Unexpected trap 



OMSI Pascal -1 VI. 2 Lsmguage Specification 

The Language Spec i-fi cat ion contains details of extensions and 
limitations of OMSI Pascal-i as compared to Standard Pascal. 
Standard Pascal vtas first defined in the Pascal Us&r Manual and 
BsBoti by Kathleen Jensen and Niklaus Wirth. A further definition 
is available in the draft proposed Standa«-d from the British 
Stand^^ds tnstituticm (BSD. The draft BSI Standard is being 
considered for acceptance as an international standard by the 
International Standards Organization (ISO) and the rfteerican 
National Standards Institute (iWSI). The original Report and the 
draft BSI Standard are in general agreement. Where the R^jort and 
the Standard differ, this document will give a specific reference. 

January 3, 1980 

Copyright 1980 Oregon Software 
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Section 1: Syntax Extensions 

1.0 Syntax Extensions 

This section describes extensions to the formal structure of 
Pascal which are of general utility. 



1.1 Program heading 

Ths program heading is optional in OMSI Pascal -'1 prograins, and it 
may be omitted entirely* If the program heading appears, the 
program name will be printed on each page of the program listing- 
The ! first Six characters of the name will be used as the external 
nam^ of the! object module. Parameters ^^spearing in the program 
heading are ignored. 



1.2 Declaration ordering 



9 



The ordering of glcrisal declaration sections <CC»eT, TYPE, VAR 
LABEL) is extended in 431^1 Pascal-1. Declauraticwi sections may 
appear more than once and in any cw-der, so long as identifiers are 
defined before being used. 

One application of this is the concatenation of source modules 
with main programs **iich provides a primitive smirce library 
capability. 

Example - compiler input fn_OT,MAIN: 

(* define source module PLOT ♦) 
• VAR ... <* global plotter variables *> 
PROCEDURE <* and plotter functions *> 
PROCEDURE ... 
C* end of plotter SHsdule *l 

<« program file MAIN *) 

VAR ... <* global variables *> 

BEBIN <* main program code ♦> Offi. 



1.3 Comment brackets 

OMSI Pascal-1 provides three forms of comment brackets: the 
Standard braces ^...>, the Standard alternate for upper-case 
terminals (*...»), and the additional form /*..-*/. These may be 
interchanged freely - it is not necessary for opening and closing 
comment brackets to have the same form. Comments may not be 
nested. 
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Examples: 

C* This is a valid corament */ 

< This is <♦ not *) a valid comment > 



1.4 ; ELSE clause in CASE statements 

OMSli Pascal-1 aIIo»«s an opticMial EL^ clause to appear in a CA^ 
statement. It indicates a stateinent trfiich is to be executed if 
the CA^ selector expression does not match the value of any CASE 
label. If included, the ELSE clause follows all other statements 
inside the CASE statement. If no ELSE clause appears and no 
statement is selected, control passes to the statement following 
the CASE statement. 

Example: 

repeat 

Readln(Ch>; 
case Ch of 

'A', 'a'; Append; 



D','d': Deletes 
Insert; 



'M'j'n': Newfile; 

'Q','q': ; 

else Writeln("",Ch,'" is not a legal command'); 

end; 
until <Ch = 'Q') or <Ch = 'q')? 



1.5 EXIT statement 

The EXIT statement terminates the immediately enclosing iterative 
statement (WHILE, REPEAT, FOR). 

The EXIT statement is included for compatibility with ' previous 
versi€3ns of OMSI Pascal -i.- Its use is not recommended in programs 
intended to be portable. 

Example (table search) : 

Found := False; 
for I := 1 to Terfiiesize do 
if Tablet I 3=Key 
then begin 

Found := True; 
exit; 
end; 
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1.6 EXTERNAL Procedures and Functions 

The keyword EXTEf^^fAL provides access to separately coi^iled 
subrjoutines and to prograto libraries and overlay facilities. 
EXTERNAL appears in the place of a procedure or functicm body to 
indicate thkt the procedure or function is compiled separately. 

The jcosipiler will generate references to an external (global) 
syfflbol.i The first six characters of the procedure cm- functicm 
identifjier ^st form a unic^e external sytsbol. References to * an 
ekteirnal procedure or fur^ction aare resolved at link or task build 
time. 

Note that the compiler is unable to check parameter types at an 
external interface. 

Examples: 

procedure Erase; ext^-n^lS 

function Rad50(A,B,C: char): Unsigned; external; 



1.7 FORTRAN Procedures suid Functims 

The directive 'FORTRAN' is siailiar to the EXTERNA, directive. 
The coii^iler will generate a calling set^ence ctn-responding to the 
Digital PW*~11 standard calling secpience, with register 5 <RS) 
pointing to an argument list. The FORTWWI directive enables 
calling of external MACf^ and FQRTR^IN subroutines. The FORTRAN 
calling sequence passes parameters by reference, so the 
corresponding Pascal parameters mist be declared as VAR 
parameters. 

The FORTRAN directive generates the prop^ call sequ^^rce for 
FORTRAN subroutines. It does not provide for initialization of 
the FORTRAN runtic^ I/O system. 

ExaopleS 

function Difference (var X,Y: Real): Real; fortran; 
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2.0 Low-Level Interface 

The low-level interface section describes those OMSI Pascal-1 
extensions which are useful to programffiers* who need access to 
fsiachine dependent PDP-11 characteristics. 



2.1 i Octal <Base 8) rkimbers 

Integer constants may be writtrai in octal notation by appending 
the I capital letter 'B' to the mmber. This applies only to 
conqsiler-time constants — runtime integer conversions via ReadOi 
are perjform^ using decimal natation. 

Example: const TabCode = IIB; <* ASCII tab character *> 



2.2 Unsigned Integers 

The predefined t^^e Integ^- has the subrange <-327£« .. 32767> and 
uses the PDP— 11 signed arithmetic operations- Unsigned integers 
may be ^ecified with the subrange O. .6^535. "Rie compil^^ will 
generate the unsigned comparison tolerations of the PDP-ii and will 
not detect multiplication and division overflow of unsigned 
integers. " 

Unsigned integer c^erations apply cmly to integer calculations. 
I/O conversions and conversicms to and from Real values are always 
signed integer operaticms. 

Example: t>^e Unsigned=0. .6^3:^; 



2.3 iLdgical operatiims on Integers 

The Ebolean cqierators AND, .OR, and NGT are extended to Integer 
operands. The operators perform the Bt^alean operations on all 16 
bits of their operands. This allows testing cw setting of 
individual bits within a word <fQr instance, status bits within a 
device register). 

Example: Byte := OrdtCh) and 377B5 



2.4 References to fixed <absalute> m^nory 

OMSI Pascal-i allows the keyword 0RX6IN to appear in variedsle 
declarations, associating a variable identifier with a specific 
memory address. This provides access to fixed memory addresses. 
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such as device control registers or operating system parameter 
blocks. 

Example (read directly from the RTll console): 

const Ready=200B5 

var KbCsr origin 177560B, Kbi^ff origin 177^62B: Integer; 
Ch: Char; 

begin 

while (KbCsr and Ready) =0 do <* nothing *>» 

Ch := Chr (KbBuff ); (* get character *) 

end; 



2.5 Address operator (6) 

OMSI Pascal -1 provides a unary address c^a^-ator, indicated by the 
@ character. Ifflien applied to a variable of t^e T, it yields a 
value of type -^T (pointer to T) . The address operator can be used 
to link variables into list structures or Ciaore commonly) to pass 
variable addresses to low~level routines. 

Example: 

var Buffer: Block; XRLoc origin 446B: '^Blocks 
begin 

XRLoc := @l^ffer; (* pass address to f^TTS/E *) . 
end 



2.6. Embedded assembly code 

PDP-11 MAO^ asseodsly code may sppe^^ at any point in an E»©I 
Pascal -1 program. Ass^idily code sect i cms have the f cw^m of a 
Pascal comsent, beginning with the $C embedded switch. Any 
MACRO-11 feature may be used within embedded code. The compiler 
provides scHne assistance in accessing Pascal variables, though the 
prograimner is expected to have scmie understanding of the OMSI 
Pascal-1 runtime environment. Note that the default radix within 
a Pascal -produced MACRO file is decimal, not octal. 

Example: 

procedure EmtTrap <N: Integer > ; 
begin 
(*$C 

MOV N<SP),-<SP) ; push parameter N 
EMT 53 ; call EMT handler 

*) 
end <*EmtTrap*) ; 
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3.0 I/O Support Extensions 

I/O support extensions provide the OMSI Pascal -1 programnier with 
additional control of the interface to the operating systeia. 



3.1 Reset O/RewriteO optional parameters 

17iree additional paraflieters may appear follcming the file variable 
in calls to the Reset () and Rewrite (} standard proceduu^es. These 
optional parameters allow the prograoi to dynatnically hind a file 
variable to an external .file and provide status and error 
information. 

The general forai is: 

Reset ( F , Filename , DefaultNarae , Size ) 

where the parameters have these types: 

F - any file variable. 

Filename - literal string, or (packed) array of Char 

DefaultName — same as Filename 

Size — Integer variable 

Reset <F, Filename) connects the file variable F with the external 
file identified by Filenaiie. Filena^ confcn-'as to the openrating 
system conventions, and may contain device, f il^ame, extension, 
and other fields such as PPN/UIC and version number. The Filename 
parameter may also contain switches specifying access modes or 
other special characteristics. If the external file does not 
exist prior to the Reset (), a fatal errcr* will result. l^on 
sucessfui completion of a ResetO, either the file buffer F'^ will 
contain the first element of the file, or Eof <F) will be True. 

Reset CF,Filename,DefaultName) |>erforms the same- function, with 
OefaultlNtame having the same format as Filenaoie. Fields of the 
externai n^e which are not specified in Filename are filled from 
the information in DefaultName. Common default fields are the 
extension, protection code, and mode switches. 

Reset (F, Filename, DefaultName, Size) provides a recovery capability 
on file open errors. Size must be a variable (VAR paraoeter). 
After a succcessful Reset () , Size certains the length of the file 
in blocks. If an error occurs. Size is set to negative one (-1). 



Rewrite ( F , Filename , DefaultName , Size ) 



Rewrite <) creates a new external file. The c^tional parauneters 
have the same meaning as in ResetO with one addition: Size 
specifies the initial storage, in blocks, to be allocated for the 
file. 
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Reset (> and Rewrite () may be applied to the standard -files Input 
and Output respectively- This will redirect the default input or 
output streams to the specified file instead of the user terminal - 
A subsequent CloseO will break the connection and reconnect the 
default file to the terminal. 

Exampl^: 

program C:opy; C* cc^y to printer «) 
var Name: arrayC1..203 of Chars 

Ch: Char; Len: Integer; 
begin 

repeat <* Set a Filename and Reset () it *) 

WriteCFile: '); 

Readln(Name>p 

Reset C Input, Nanffi, '. PAS' , l«i) 
until Len <> -1; <* until not ^-ror ct»jle *> 
Rewrite(0utput,'LP:'>5 <* redirect output to printer *) 

while not Eof do begin (♦ copy Input to Output «) 
while not Eoln do begin 

Read<Ch); Write<Ch); 
end; 

Readln; Writeln; 
end; 
end. 



3.2 SeekO procedure 

The predefined procedure Seekd causes direct positioning of, a 
file! window variable to any desired compcment of the file. 

Seek( F , Index ) 

F may be of any file type except Text, and taust be connected to an 
external file which supports direct access (typically disk or 
DECtape). Index is an unsigned integer expression which specifies 
the desired component. File components are numbered sequentially 
beginning with one <1). If Index specifies a number greater than 
the number of components actually present, then Eof <F) is set to 
True- 

To read component N of file F, use: 

Seek<F,N); C* component N is available in F-^ *) 

To write component N, use the sequence: 

Seek<F,N)i (* position to component N *) 
F'^ := <); (* assign new value *) 
Put(F>; <* write conqaonent to file *) 
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If the Putt) in the above sefluence is omitted, the effects will be 
unpredictable and the new data may be lost. 

Ssot^ential I/O operations such as BetO and Pu€() may be ftixed 
with SeekO and will advance the file window to the next 
component- Reset tF) is equivalent to Seek<F,l). 



The direct access extension bypasses the Standard Pascal^ 
restriction prohibiting simultaneous «^e«** ^^^.^T^J® ff5®^® ?h2 
Jnei For this reason, direct access files are identifi^ ^X^»V^ 
'/Seek' switch which must appear in the Filename or DefaultName 
field of the associated Reset () or RewriteO- 



3.3 Break C) procedure 

For efficiency, OMSI Pascal-i buffers tran^itted ff^f " ,,^^f!^*^^ 
forces the actual transmission of data from a partially f^^led 
buffer of file F. This can be useful with interactive terminals, 
or to guarantee actual transmission of data to a ^ared disk file. 

3.4 CloseO procedure 

Cldse<F) indicates that the program has completed P'^°«=^^^*"?. "l® 
file F, ^d that internal buffer storage may be reclaimed. 
Close (F) removes any connection to an external ^^^^'.^ ^VfJ 
Reset (F) or Rewrite (F) must precede any subsequent iterations with 
that file variable. 



3.5 Re^dlnO Array of Char 

Readb and ReadlnO will read characters from a J^lJU^^J^^.t 
(packed) array of characters. Reading begins at the ="^^^11^*® 
position and continues until either the array is -f**!^**' ?rj°ij*i 
i° True, in which case the remainder of the array is filled with 

blanks. 



3.6 WriteO Array of Char 

In accordance with the draft proposed ISO standard, a ^iteO 
procedure call applied to an array of ^h^ •-*" *^S"*^ *^ 
written string if the field width parameter will not allow, tne 
entire string to be written. 
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Ek ample: 

Write(Buffer:BuffCount>5 <* write buffered characters ♦) 



3.7 WriteO Octal (Base 8) , 

WriteO will write integers in octal notation if the field width 

specification is negative. 

Example: Write(l:--5)5 C* Display octal value of I *) 



3.8 Interactive I/O 

The Pascal Standard requires that the first elent^it of a file be 
available as soon as the file is Reset (> Cthe buffer variable F^^ 
is assigned a value iiamediately) . This can present serious 
difficulties when applied to files which are interactive 
terminals. For example, if the default input file is the user's 
terminal, the standard can be interpreted to require that the user 
type the first input chcu-acter (or line) prior to the execution of 
the first program statement. 

DMSI Pascal-1 takes the following route around the problem. When 
an interactive file is Reset (), the buffer variable is set to a 
space and Eoln(F) is set to False, but no actual I/O transmission 
occurs. Each ReadO request then waits for sufficient data to 
satisfy the request, but no more. 

This solves most of the problems with interactive terminals in a 
predictable manner, but one should note that this SMaproach creates 
other difficulties. When applied to an interactive file, the 
following program is unable to distingui^i between an empty line 
and a line containing a single space. This is because EolnO 
cannot be set until the end of line character is typed to satisfy 
the ReadO request. 

Example: (the standard schema for reading a line of charact«-s> 

var Line: arrayC1..723 of Char? 

Count : I n teger $ 
begin 

Count := 05 

while not Eoln do begin 
Count := Count+l5 
Read(LineCCount3) ; 
end; 
Readln; 
end; 
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4.0 Additional FVedefined Functicms 

OMSI Pascal-1 provides some additional built-in functions. 



4,1 Time function 

The Time function takes no parameters and returns a real value 
which corresponds to the current time of day. The Time is 
represented in hours afta- midnight, so that 9S30 (W is 9.50 and 
l;45 PM is 13.75. The exact resolution of the Tia» function is 
dependent on the operating , system, but all c^eNrating systems 
provide a resolution of at least one second. 

procedure WriteTi me; 
var Hrs, Mins; Integer; 

AmPm; arrayC1..23 of C^ar; 
begin 

Mins := Round (Tiffle*4iO}; 

Hrs := Mins div 60; 

Mins := Mins mod 60; 

if <Hrs < 12) 

then AmPro := 'AM' 

else if <l*-s = 12) aund <Mins = O) 
then AmPffl := 'M ' 

else flHnF^ := 'Rl'; 

OfriteCAt the tone the time will be: '>; 

Write <<<Hrs+ll) mod 12 + 1>:2); 

MriteC:', Mins div lo:i, Mins mod 10:l, f^BPm:3>; 

Writeln«Chr(7)); 
end; 

"At the tone the time will be: 11:56 em" 



4.2 Expl0('> and Log{) funCTtions 

The ExplOO and LogO functions are similiatf- to the standard ExpO 
and LnO functions, but with a l^arithm base of ten <10)« 
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5.0 Non-standard Language Elements 

This section describes the eleoients of CHISI Pascal— 1 which do not 
conform to the accepted definition of Standard Pascal. 



5^1 I PackO and lAipackO not available 

The rescNTved word PACKED may appear in t^e definitions, but 'it 
has I no meaning in OMSI -Pascal— 1 programs. Packed types require 
the same amount of storage as unpacked types. The standard 
procedures PackO and Unpack () are not available. TTie following 
equiyalent FOR stateflients can be used instead: 

var A: arrayCM. .N1 of T; 

Z: packed arrayCP. .Q3 of T; 
for a:= P to Q do ZCJ3:= ACJ-P+I3S C PacfcCA,I,Z> 1 
for J:= P to e do Ai:j-rp+I3:= ZCJ35 € Uipack(Z,A,I> J 



5.2 Program Parameters 

Program parameters (identifiers appearing in the program heading} 
have no meaning in OMSI Pascal-1 programs. The program heading 
may be omitted entirely if desired. External files can be 
declared by using the . Reset <) and Rewrite <> procedures with 
optional parameters. 



5i3 Identifier Scc^e Rules 

In Standard Pascal, the sci^e of an identifier tthat section of 
the ; program within which the identif i«- indicates a particular 
object) is directly related to the block structure. A definition 
of an identifier in a procedure, for example, prohibits that 
identifier from indicating another object throughcait the entire 
procedure. 

OMSI Pascal-1 uses a subtly 'different rule for the scc^e of an 
identifier, called 'one-pass' sccqse, in which a* definition of an 
identifier prohibits only subsequent uses of the identifier within 
the block from indicating an object outside the block. 

The non-standard scope rule is described here for completeness, 
but it is of little concern to the programmer. Indeed, the 
majority of Pascal compilers use the identical (incorrect) rule. 
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5.4 ReadO/WriteC) Text files only 

In the 1978 printing of the Pascal User lia nual .and Reggrt, the 
ReadO and WriteO standard procedures were €2! tended to apply to 
all file types. This extension has not yet been incorporated into 
OHSI Pascal-1, so that ReadO and l«fr-ite() are applicable only to 
files of the standard type Text. 

The following substitions may be u^sd: 
i 
FcM- Read<F,V), use: V:=F'^5 i3et (F) ; 

For Write<F,V), use: F'^:=V5 Put<F); 



5.5 EofO not accurate (RTll, RSTS only) 

On the RTli and RSTS operating systems, a file is structured as a 
sequence of 512 byte blocks. No finer resolution is available as 
to the end of data in the last block. Therefc»-e, the EofO 
standard function can not be relied upon as accurate, and owiother 
method (sentinel record, record count) should be used to indicate 
the end of usable data. 

Note that this problem does not apply to Text files, where EofO 
is identified correctly. - 
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6.0 Implementation Definitions 

This section provides specific details and characteristics of 
implementation-defined elements of OMSI Pascal-1. 



6.1 ' Identifiers 

OMSI Pascal-1 permits identifiers to be of any_ length, and all 
characters are significant. Lower case letters may be used and 
are interpreted the same as upper case, so that "name", "Name", 
and ^'IMAME" are equivalent identi-fiers- 

1 i I 'I 

Due to limitations of the c^ject program file structures, the 
first six characters of any EX"ref»tfW- or RM^TWW idwrtif ier must 
form a unique external naa». 



6.2 Standard ti^e Integer 

The standard type Integer has the range (-32768. . 32767) - Uns igne d 
integers may be declared using the subrange notation O. .65535. 
Note that arithmetic overflow is detected only for multiplicaticm 
and division of signed integers- 

The predefined identifier Maxint has the value 32767. 



6.3 Standard type Real 

Real variables have the standard PDP-11 single or double precision 
floating point structure, with the range lE-38 . . iE+38. Single 
precision values give 7 decimal digit precision; extended (double 
precision) values give 15 digit precisicwi. ^ithmetic overflow xs 
detected for all real operations, but underflow is igncM^ed and 
gives a result of zero. 

The standard transcendental routines are accurate to 6 decimal 
digits in single precision, atfid 15 decimal digits xn extended 
precision. 



6.4 Standard type Char 

OMSI Pascal-1 uses the 7-bit full ASCII character set. Characters 
are stored as signed bytes with all 8 bits available to the 
programmer, so that Ord(Char) has the subrange (-128. . 127) . 
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6.5 Standard type Text 

The standard type Text is a file type with components of type 
Chart, iwith the characters masked to the 7-bit ^^11 set, and 
skippinig the> null (O) character. C^ RSX systems, the standard 
func^tiidn EoinO is set by the end of a file record; on RSTS/E and 
RTlli systems by the LF (10) or ESC (27) character codes. 

■ : I ■ V : 

The jstaindard procedures ReadO, ReadlnO, WriteO, M"iteln(>, and 
the i standard function EolnO are applicable cmly to Text filesi 
The SeekO procedure is not recosmended for use with Text files. 



6.6 SET types 

OHSI Pascal -i limits sets to a maximum of 64 elements. The 64 
element maximum forms a subrange which is not, required to have a 
lower bound of zero, but may instead be positioneNJ at any 64 
element <or smaller) subrange of a base type <for example: 
100. .150, -25.-25). 

A set of the standard type Char is equivalent to the set of 
Chr<32)..Chr(95), tdiich is a subset of ASK^ZI containing the upper 
case letters, digits, punctuation symbols, and the space 
character, but lacking the control characters and loi^r case 
letters. 



6.7 NewO and Dispose (> procedures 

In allocating storage for variant reccwrds, the NewO procedure 
will allocate memary fra- the largest variants any tag field 
values specified to htewO and DisposeO are ignored - 

Storage must be explicitly released with DisposeO — no automatic 
garbage collection is performed. Storage occupied by vauriables 
passed to DisposeO is reclaimed for use by the. htewO procedure. 
Dangling pointer references are not detected. 



6.8 Procedural Parameters 

The passing of PROCEDURE and FOJhCTION parameters is supported by 
C3I1SI Pascal-1 with the syntax described in the Pascal iMSL Manuai 
and BeBSCi <the proposed ISO Standard differs in this area). 

Predefined procedures and functicwis are not permitted ^as 
procedural parameters. This can be bypassed by declaring a second 
procedure which calls the standard procedure, and which can itself 
be used as a procedural parameter. 
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Example: 

function Sine(X: Real>: Reals 
begin 

i Sine:- Sin(X) 
ends 



6.!9 I I Iffl|i»leme^tation Limitations 

The PDP-11 has six gen«-al purpose registrars. In CH«^I Pascal-1, 
one ! register <R5) is always allocated for access to global 
variables, and another <R4) is allocated in some blocks for access 
to interinediate level variables- The remaining registers are used 
for integer calculations, address computations, and WITH statement 
variable access. Each WITH statement uses one register for the 
duration of the enclosed statement. This implies a maximum 
nesting of WITH statments. of three levels. Coa^l ex expression 
calculations can also exceed the available registers. If the Out 
of registers' error occurs, remove a WITH statement or simplify 
the' indicated expression by calculating intermediate results. 

The syntactic nesting of procedures is limited to a depth of lO 
levels. There is no implementation restriction on the actual 
depth of recursion of a program, although unlimited recursion will 
eventually cause the program to exceed avail^le manor y. 



6.10 Error Detection 

OMSI Pascal-1 does not detect the following runtime errors: 

lilninitialized variables 

Subrange bounds exceeded 

Integer overflow 

Real under flew 

Record variant mismatch 

Dereference of NIL pointer 

The follcwing runtii^ errcr-s are detected: 

Stack overflow 
• Heap overflow 
Real overflow 

Integer multiply/divide overflow 
Array bminds exceeded 
Dispose <) of NIL or duplicate pointer 
Incorrect numeric format 
I/O errors 
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Predefined Identifiers 



Constants 

False, True 

MaKint 



Types 



BcKilean 

Char 

Integer 

Real 

Text 



Varijablles 

I Input, Output 



Functions 

Abs 

Arctan 

C»ir 

Cos 

Eof 

Eoln 

Exp 

Exp 10 

Ln 

Log 

Odd 

Ord 

Pred 

Round 

Sin 

Sqr 

Sc^t 

Succ 

Trunc 

Time 



Base 10 Experiential 
Base lO Logarithm 



Time of day- 



Procedures 

Break 
Close 
Dispose 
Get 

Page 
Put 
Reset 
Rewrite 
Read 
Read In 
■ Sepk 
Write 
Writeln 



Transmit buffered output 
Close file 



Direct access I/O 
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Table B: Reserved Words 



Reserved Itords 
(* extensions) 



And 

Array 

Begin 

Case 

Const 

Div 

Do 

Down to 

Else 

End 

Exit * 

External * 

File 

For 

Fortran * 

Forward 

Function 

Soto 

If 

In 

Label 

Mod 

Nil 

Not 

Of 

a- 

Origin * 

Packed 

Procedure 

Program 

Record 

Repeat 

Set 

Then 

To 

Type 

ikitil 

Var 

t«iile 

With 
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Introducticwn 



Intii-Qduction to the Debugger : 

The Pascal On-Line Debugger (POD) is a symbolic debugging tool 
that lets you interactively control the execution of your Pascal 
progiraa. You can suspend execution at particular statements, 
ex^ikte one statement at a time, and examine and modxfy the values 
of particular variables. Since POD traps errors f"J. ^ffj^^'fj 
the last statement executed, you can easily pinpoint the source o+ 
riin-tifflife errors. 

POD is really a series of Pascal procedures that are linked with a 
program. When you speci^Fy the debugging option </D), the Pascal 
compiler includes a call to POD before each procedure and 
s?a?^ent in your program. This lets POD ^«J*™i. P'-°|^-^ 
execution. The c«i^iler also produces a sya^ol ^^f^'Jf ***® 
containing the definitions and locations °^ f^^ ^^"f ^^.fj^ 
procedures in your program. Using this, POD can find and modify 
variables and refer to procedures by name. 

The Debugger Guide assumes that you are familiar with the User's 
6uide and the Programmer's Guide in this manual. 

In examples, underlining is used to show the te;4t that yo« J^**]^^ 
type. Non^nder lined text shows the prompts or other responses by 
the computer. 
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Including POD in Your Program 

Including POD in Your Program 

To use POD, you mist compile your program mith the debugging 
switch, /D. This automatically generates a symbol table file for 
your program. For ex ample: 

-R PCL 

W tt^ih/ d| 

The /D IsNitch causes debugging instructicms to be included in the 
compiled pifogram. The /D switch also produces a debugging -file 
(TRIH.SYM) i containing the syi^ol table information for the 
procedures and variables of TRIM. 



'siipp 



POD '^iip^tv-ts an cation called source debugging, selected with the 
/S coffli^ilaliion switch. This lets POD print the Pascal source 
lines associated with the cosqsiled statements in your program. 
With the /S switch you can debug a program without having to print 
a listing of the program. The cost for using source debugging is 
an increase in the size of the program being d^>ugged and a 
somewhat slower execution speed. All of the exasples in this 
section use the source debugging option. 

If you wish to use the sourcie debugging option, specify both the 
/S and /D switches in the compilation command: 

*TRIM/S/D 



When the /S source debugging f^ticm is selected, a listing file 
<TRII1.LST) is automatically created. POD reads this file to 
display the source prpgram. for each Pascal statement. If the 
listing file is deleted, source debugging is autonatically 
disabled, and POD will then identify statements only by procedure 
naune land statement nuadia^. 
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Running POD, Accessing Pascal Statements 



Running POD, 



When lyour program starts, POD will identify itself and ask you for 
the name bf^our prograi. It is assumed that the symbol file and 
liStinr^ile (if tSeS option is invoked) will share the program 
name. If either file cannot be found, POD will. ask specxfxcaily 

for the necessary file name. If POD ^^^.'^°'' .f.^mHf t Jl Lura 
none exists, give a carriage return. This w^ll «=f«==el the sm^e 
debugging option. POD will then ask for a symbol file name. Here 
is a typical POD opening dialogue: 



RUN 
TOD 
TOD 
> 



IBid ,.™ 

(Pascal Chi-line Debugger) - 24-^r-79 

— prograun name? JRin 



When TOD is ready to accept commands, it will prompt you with a 
riaht brace (>). C^ some terminals this will print as a right 
i^^e bracket (3). Commands to TOD may be typed in ^i^her l^r 
S?^%,per case, and spaces in the commands are ignored. Several 
TOD elands caA be typed on the same line if you separate each 
command with a semicolon (5). 

POD commands are presented alphabetically beginning on Page 77. 



r 

Accessi ng Pasc al . Stat ements,. 

POD identifies Pascal statements by the "^^"^^ . ^J^^^r°f^^ 
containing the statement, and the nuB*»er of the statement i n^ 
nr-ocedure. The statement number can be found m the column 
f^efS %Tlli in t^ listing file produced by the P^^i =^^^; 
Statements in the main body of a Pascal program ^^.^°";i?^^„ *? 
be in the procedure WAIN. All Pascal programs begin executing at 

MAIN,1. 

If the source debugging option is being used, ™ ^ ^u^^.''''^ 
source line along with the procedure name and statement number. 

Pascal allows you to define procedures that define other local 
procedu^esr I^ this way you can create a program xc^taining 
severarprocedures all having the same name. However, we strongly 
rec^nd that all of the procedures in your program have unique 
names in order to avoid confusion during debugging. 
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Accessing Pascal Variables 

Acce ssi ng Pasc al V ariables . 

POD lets yf3u access the variables in ycsur program in much the same 
wiiylas you use variables in Pascal. Variables and procedure 
pdr^^ters ^re identi-fi^i by name, such as C^V^IN, LIMIT, or 
SHOE^IZE. jRecords are sjaecified with the standard dot notation, 
such I as: COORD. X, and R^VMGE. TOLERANCE. LOW. POD will generate an 
error message if too few (or too many) fields are ^lecif ied for ai 
record. Arrays of OHiltiple dimensions are allowed, and POD will 
check the data type and limits of each index ii#i«i accessing 
arrays. Pointers are specified in the usual way. The value of 
the pointer itself is interpreted as a decimal integer. A nil 
pointer has a value of zero, and POD will g^erate aa% error 
message if a reference through a nil pointer is atte^ited. 

You can access complex structures by combining several' of the 
structures described above ^l In general, POD can access a variable 
in a structure in the same way as that variable is used in your 
program. Examples of legal variables are shc»«n below: 

FEET 

A.B.C.O 

CHIP'^. TEI1PLATEC3, 1 , -53 . FLUX 

PTR^. soisr. sohr. SON 

Integers are treated as l&rbit signed nutters. The letter "B" 
placed after an integer (377B, for example) indicates an octal 
value. Boolean variables take values of either TRIE or FALSE. 
Character data, including character strings, are always encli3se»J 
within single quotes as with 'X' and 'THIS IS A TEST', ^aces are 
not ignored within a charact^^ string. Real variables are used in 
the usual way. POD also can access scalar types defined by the 
user. For example, consider the program section below: 

TYPE 

COLOR=CRED, frnilTE, BLUE) 5 
VAR 

X: COLORS 

When POD displays the value of X, it will correctly print the 
scalar type of X. . This capability is provided cinly by POD — 
Standard Pascal does not permit output of scalar types. 

> X:,=f^P 

> WiKI 
RED 
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Accessing Pascal Variables 

POD has another facility not available to the Pascal programmer: 
its ability to display the value of sets. The ".-" notation for 
included set elements is available for both the input and output 
of set values. 

TYPE 

|Ca.OR=(RED, tJRANGE, YELLCtt*, BREEN, BLUE>; 

VAR 

rb: SET OF color; 

VALl^S: SET OF INTEBER; 

Q: SET OF char; 
These variables may be accessed fay PCH> as s^c^ belcm: 



> RB: =t:RED. . YELLOW. K-UE3 
J WIRB) 

ERED.. YELLOW, BLUE3 . 

> veLyiglrgJ- '20,50,40. 303 S tJlV^tgSI 
El.. 20,30,40,503 

5 il-IlEl^iai^ieiilEljLlililBll 

> W<S) 
C'A'..'F'3 

y 

As demcmstrated above, KH> lets you assign values to variables in 
the same way as ycHi assign values to variables in your prcK|raiB- 
The only restriction is that you camnot evaluate expressions such 
as Cf^^B, and you cannot call functions such as R:=SINC3.1415)- 
POD ^iM-ces the Pascal scope irules- In general, this means that 
at kny point in your program yau can only access the variables 
that' the program itself can access at that point. Slt^al level 
variables, those defined at the start of the program, are al»#ays 
available. However, as diff«-ent procedures are executed, the 
local variables and arguments of those procedures ^-e tempoTOT-ily 
available, while the local variables in procedures not being 
executed are never available. If you try to use a variable that 
is not available, POD will print a "syirtiol not found" error 
message. Remember, at any statement, you can only tise the 
variables that are available to the program at that point. 

POD lets you directly address memory locations as integers- For 
example, 1234B:=240B modifies location 1234 (octal) to contain 240 
(octal). This feature is most commcwily used when you deal with 
pointers. However, be careful, for you might accidentally modify 
a location within your program and cause unpredictalile results. 
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B(): Set /CI ear Breakpoints 

BO ; Set /CI ear , B r eakpoi nt s , . 

The "B" comaiand sets a breakpoint at a particular, stateiaent within 
a program. Before executing each statement io your prograsi, POD 
checks to see whether a breakpoint has been set at that statement. 
I-f a breakpoint has been set, POD suspends the execution of the 
progr am; and enters command mode. At this point you can examine 
and ^Iter variables, check the histcw-y of the prt^ram's execution,! 
or cbntinue j the execution of the program. 

To set k breakpoint at a statem^it, type a "B" followed by the 
statement identif i«- (procediu^e and statement number) contained 
within; pareritheses. POD will interrupt the executiCNn of ycwr 
pr}-ogil-aml just befcN^e the statement at *#iich a breakpoint is set.! 
Up to eight I breakpoints may be in effect at affiy wie tiige. 
Examples: 

> i 

Breakpoint at MAIN,! BEBIN I:=0; 

> B<IWIT.5); C 

Breakpoint at INIT,5 PARAMIS^OS PARAf^2=05 
> 

(The examples above shcm how the scHirce d^3uggirng caption tfmsrks. 
When POD stc^s at breakpoint, it prints the Pascal source line for 
that statement.) 

• ■'■"'■■'' i 

Tlie "'e"; command in the exao^le starts program execution. The "C" 
command continues from the breakpoint. 

PdD has the capability to-execute a series of POD ccmmands **hen a 
breakpoint is encmmtwed. This facility, called sti»-ed commands, 
is specified «lh&n ycni place the command within angle brackets 
« >5 after the break command as shown here: 

■ ' ' ■ I ■ ■ ' ■ 

> B (MAIM. 6) < W(I^f*TH); DEPTHZ.gS > 

> BIPQSITiaSs.3ii<WlXiY)iCi 

The first example displays the value of the v^^iable ISEPJH then 
assigns the value of 5 to MPTH each time the program co^as to the 
statement at MAIN, 6. The second example displays the values of^ 
the variables X and Y and then ccHitinues the executicHi of the 
program. In this case POD will not stop and enter command mode. 
Instead, each time the program comes to the statement at 
P0SITI0Ni,32, the variables X and Y will be d^isplayed and the 
program wi 1.1 continue. 

Any POD command may appear in a stored command, but stored 
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BO:: Set/Clear Breakpoints 

coaifliands may not be nested; i.e., a stored cotninand may not define 
other stored cofninands. As many POD coaimands as will -fit on a 
single line may be specified in a stored ccHntnand. 

There are two ways to cancel a breakpoint. Ttie "K" comnand 
described below can be used to kill all breakpoints or just a 
single breakpoint. l-fcHn^ver, if the program has just been 
interrupted because a breakpoint was reached, that breakp^oint can 
be canceled by raeans of the "B" cofflmand with no arguaents> 

> B<riAIN.l) 

> G 

Breakpoint at ilAIN, 1 BEGIN I:=0; 

> i 

> C 

The "D" cofflffland may be used to display the currently active 
breakpoints and their associated stored coffltnands. 
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C: Continue Execution, Display Parameters 



Con t i nueEx ecut i on. 



\4 trie execution of your program has been suspended by POD, you 
fflav use trie "C" comaiand to resume execution of the program. ir 
^ plSgraS has not started executing, either the -C" ^^^ "^ 
ccimmin^rmaV be used to start the program. ^The ^^*^^^°r^ 
describing breakpoints has several examples ttiat use the c 
coSd. ^ Once your program has terminated and POD ^as re-entered; 
ccl««n^nd mode, any attempts to continue t»^^P'^°9^^„„':'J*5h^ nrooram 
cbmmind will be ignored. <There i2«"°**^^^H HoS^^L^bel^ * 
--w !Kr,««^=r._ hP> .-^Started with the "8" command described belOM. 



may 



, however, be restarted with the "6 



If you set a breakpoint inside a loop, it is sometimes '^esirabl^ 
to let the statement at • the breakpoint execute ^f^^^*^ 
before stopping. One way to do this is to use the "C" command 
slvSrli SSi^ to continue from the breakpoint until th^ desired 
iteration in the loop is reached. Another ^"l"^*?" ^f. ^^° „"^^Thg 
repeat count contained inside parentheses ^^\^ ^^ J^ Jl ™ 
rSeat count tells how many times the ffj^fV ?L ^eakooin? 
breakpoint has been set should be executed *»f °':;. *^*^^.'»^^^*?* 
takes effect. For example, you can set a f™*^P°i"|^fS ^^iU 
inside a loop structure. When the loop xs first ^^^^^^ JU) 
stop the program at (Xft^TT* lO with a breakpoint. The con^d C<6) 
Sll let the loop iterate 6 times before the prc^ram stops again 
at COUNT, 10 with V breakpoint. Each of the eight breakpoints has 
its bwn| repeat count. 



ni_Di^lay POD ParametMIsJ — 

The -'D^ command displays the watched variables, 1^^^, and 
breakpoints that are currently active. Watched variables are 
described below in the section about the "V" command. Labels are 
d^ICi^ below in the sections about the "O" ^d "^r/™?^^:^ 
The stored commands associated with breakpoints and the watched 
variable are also displayed. 

> B 

Watching: Bi:53 <W<BC63,BC73,BCS3) > 

Breakpoints: 

MAIN, 13 <WCFOO);C> 

MAIN, 20 

ERR,5 <W{ERRORCODE);H> 

User-defined labels: 
l: MAiN,i BEBIN i:=o; 

5: RETRY, 3 RESET <F, NAI«, ' DAT' , STATIC) 5 
J 
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6, 6{): Go or 60 to a Label 

6, so: Bb_Qr„Go to a Label . ., 

The "S" coranand without arguments starts or restarts your program 
at I1AIN, 1. If the "6" coimnand is folIOMed by a label nuailb&r irii 
par^theses^ the prograoi will be continued at that user-defined 
label. ' Doi not confuse user — defined labels with Pascal statenent 
labels. User — defined labels are created with the "L" command 
dynanicjallyi as POD controls your program. Pascal statement labels 
aiHel Idef irtedi in ycxir source code and are used by the Pascal 
ckmipktkr' t^ generate targets for the Pascal eOTO statement* POD 
dbesj niot I us4 Pascal statement labels. ! 

The j"!-''! command labels the progreua statement about to be executed. 
The md^t common way to define a lal)el at a particular statement i4 
to set a breakpoint at that statement, execute the pri^ram until 
that statement is reached, and then use the "L" ccMMnand to define 
the label. 

The "G" command should be used with care. It is not always 
possible to branch from arty Pascal statement to any other Pascal 
statement. Labels follow the same scope rules as variables, so 
depending on which procedures are being executed, some labels may 
not be available. If you try to go to a ladbel that is not 
available, POD will re^dhd with the &rrar message "You can't get 
there from here". Zkne reason that POD cannot go to a particular 
label is that if the label is in a procedure that is not being 
executed, POD is not able to invent the values of the local 
variables associated with that procedure. 

> B (MAIN, 5); C 

Breakpoint at MAIN, 5 J:=SIN(8>; 

> !=*3)i B(|1AIN,27)_3 C 

a-eakpoint at MAIN, 27 WRITELNC'X>Y' ) 5 

> B<.3) 

Breakpoint at rwIN,27 l««ITELN<'X>Y'); 

> i 

Breakpoint at MAIN, 5 J:=SIN(G}; 
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H: Print Program Execution History 

H: Print Program Execution History . - 



POD maintains a list of the- last 10 statenents executed by a 
program. This history is useful in determining how the program 
reached a breakpoint or how it reached a statement that caused an 
error. The "H" command prints the history and also the procedure 
execution stack. The stack shows the procedure and function 
nesting all: the way back to the main bcxty of the program. 

> B <EV<^UATEBDARD- 1 ) S C 

Breakpoint ^t EVALUATEBOARD, 1 FOR I: =-5 TO 49 DO BMANCI3:=FALSE5 

Program execution history 

.1 U M, [ I 

GENMOVE^S BESIN 

6EN»«3VE,4 FATHER: =FS 

SENMOVE,5 f10VE:=I*256+J; 

6ENI«S3VE,6 0LDPIECE:=BCI3; BEI3:=E!ff>TY; 

GENMOVE,? 0U)PIECE:=BEI35 BCI3:=EI1PTY5 

GENMaVEfS IF TIHW=BLAC*: THEN 

6ENMOVE,9 IF J<=S THEH BCJ3:=BLACKKH^ ELSE BCJ3:=0LDPIE£^ 

GENMOVEjll IF J<=8 THEN BCJ3:=mJ%CKKINe ELSE BCJ3:=OLDPIECE 

GENHDVEjiS VALtE:=EWtt.UATEBOARD<ENEWy> 5 

EVALUATEBOARD,! FOR I: =-5 TO 49 DO BMANi:i3:=F«-SE5 

Procedure execution stack 

EVALUATEBOARD,! FOR I: =-5 TO 49 DO »lANi:i3:=F*«-^S 
GENMOVEjlS VALte:=EVALUATEKJARD<ENEWY>5 
MOVEPIEC^,!! IF MOVESALLOWED THEN ^[^t1QVE ( I , J ) 5 
EXPAND, 15 IF COLORC*««»3=TURN THEN MOVEPIECE < I , I , O^ O) ; 
MAIN, 7 EXPAND CR00T,TRIK); 

y ^ 
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Kji KO: Kill Breakpoints and Labels 



K. K(); Kill ^eakpoints Stnd Labels 



When I the "K" command is given without arguments, all label 
definitions and breakpoints are deleted. Wien the "K" command is 
followed by a statement identifier, the breakpoint at that 
statement is removed. 



> KiSaiNiSi 

> B<MAINa.l7) 
J K 

''■'■,' 
Individual breakpoints also can be removed with the "B" cca^mand. 



L <) : Label a Stat^aent 



YCHJi fiiay label up to eight statei^nts with the "L" command. Labels 
are used as targets of the "S" ccMHsand. Ttie label number <1 
through 8) is placed in parentheses after the "L". The "L" 
command always defines the label at the current location within 
the program being executed. Check the descripticai of the "B" 
command above for a warning about branching within a Pascal 
program- The "D" command may be used to list the curr»itly active 



labels. 



Breakpoint at MAIN, 13 A: -15 

> LCD 

> B<MAIN.i5)8 C 
Breakpoint at MAIN, 15 B:=37; 

> L<5) 

> D 

Breakpoints: 
MAIN, 13 
MAIN, 15 

U^sr-defined labeLs: 
i: MAIN, 13 a:=i; 
5: MAIN, 15 B:=37! 
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P, PO: Execute C^e Statement, Register Dump 

P. PO: Execute One_^tatefnent_i.n_CurrentJPrgcedure 



i-a^ 



The f'P"i command executes a single statement m the current 
procr^dure. I "P" will not single step through -functions and 
proc^ii^es tested in the current procedure, but instead will treat 
theih calls as single statements- If the current procedure ends^ 
"P" Willi begin single-stepping the procedure that called the 
ciir«rWiti prc^edure. (Compare "P" to the similar "S" command 
d^scHbbd b^low. } 

If a! repeat count is given in parentheses after the "P", the 
specified number of statements will be executed before stoppings 
As with the "C" command, you may not proceed past the 6nd of the 
program once the program has terminated. Use the "S" comiBand to 
restart the program. 

} P 

Breakpoint at rWIN, 1 ^BIN l:«=0; 

> P 

Breakpoint at «AIN,2 J:=RAl«)0MINTESB?(3); 

> P 

a-eakpoint at r»)IN,3 K:=J[*J-I5 

> P(5> 

Breakpoint cit MAIN, 8 IF K<J THEN BEGIN 



R: Register Dump, 



The "R" command prints the values of the processor registers RO-PC 
in both octal and decimal. This command is normally useful ^only 
to those programmers who include in-line assembly language code irt 
their Pascal programs. 
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S, so: Single Step 

S. SO; S ingle Step ,. . 



Ttie "S" coomand is identical to the "P" cofflmand above, except that 
i* 3 statement being stepped through calls another procedure or 
fitncticin, th^i the new procedure or function also will be executed 
one step at a tiise. As with "P", a repeat count may be specified. 

Breiikpoint at MAIN, 1 BE6IN I:=0; 

■ > i' 

Breakpoint at MAIN, 2 R#»B)0«INTE6ER<3) ; 
; > S<i) 
Breakpoint at RANDCJHINTE^, 1 ^SIN RANDOM:=X; 

■ y 



TO: Trace Hode_ 



"T<TRUE)" turns on statement trace iBOde, «^ile f'TtFALSE)" turns it 
off. When trace arade is on, PCBJ will print the locaticm of each 
statement before it is ^cecuted. If several Pascal statemwits 
appear an the same line in the source file, and if those 
statements are each executed in sequence, then the line ccmtaining 
those statements will be printed only CMice. 

> B^riAIN.6) 

> HlSUii 

> i 

MAIN,1 BEGIN l:=05 

nAiN,2 j:=05 k:=o; l:=3.14159; 

riAIN,5 WRITELNt'HI THERE'); 

HI TMERE 

Breakpoint at MAIN, 6 I^ITELN; 

J 
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VO: Variable Watch 
Vili-Variable Watch 



The "V" cofflffland makes POD watch the value of a variable. Before 
each 3tateflient in your prograffl is executed^ f=^3D coi^ares the 
current value of the variable with the value it. had whrai < the "V" 
coromand was given » If the value has changed, POD stops your 
pragram and tells you so. • If you continue your prcsgran, POD will 
continue watching for a change in the variable. 

The f'V"! coflwiand is useful if your prograa is nal functioning 
because, the value of seme critical variable is being destroyed 
somewhere. The "V" coromand also can be used to watch locations in 
low fliesEKxry to detect the incorrect use of a nil pointer. 



> V (DEPT H) 

> C 

Value of -DEPTH" changed at statei^nt: 

DESCEND,! DEPTH:=DEPTH+l5 

Old value: O 

New value: 1 

Breakpoint at DESCEND, 2 IF DEPTHJflAXDEPTH TfrEN 

> Q 

Value of "DH»TH" changed at statement: 

DESCEr«>, 1 DEPTH: =DEPTH+1 5 

Old value: 1 

New value: 2 

Breakpoint at DESCEND, 2 IF DEPTH^WftXDEPTH THEN 

> C 

Value of "DEPTX" chartg^l at state^mt: 

DESCEI«),38 De*TH:=DEPTH-l5 

Old value; 2 

ivtew values i . ■ 

ll^eakpoxnt at 1^^1:0^,39 OID;^ 

l> ■ ■ 
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Stored coaMiands may be specified with the "V" cominand in the same 
way I as with the "B" conuBand. The "D" ccammand will list the name 
of the variable being watched and the stored commands if any were 
given. : You can terminate a variable watch by using the "V 
command with no arguments. POD will automatically terminate a 
watch on a 'variable when that variable is no longer availableii 
When POD does this, it prints the message "Watch terminat«i — r 
valuie didn't change". 



> B (EVALUAT EKMtfm, 35) t C 

Breakpoint at EVALUATEBO^D, 35 FOR I: =5 TO 39 DO 
y V CBLACKSCCggXW <t#<ITESC^I> 

> C 

Value of "BUMa<SCK^" changed at statem^it: 

EVALUATEB0ARD,224 ELSE BLACKSOJRE: =a.ACKSCC»^-H10C45 

Old value: O 

New value: 400 ^.^ 

Breakpoint at EVALIWTEBOARD, 225 IF BLACKDENY<WHITEDENY Tf«N 

O 

> c 

Watch terminated — Value didn't change 
Breakpoint at MAIN, 28 «AX1JE'^L:=0; 
> 
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WO : Write..,.yari able V alu e 

The i"W" cofliroand is used to write the value of a variable, pointer, 
cbnsitarit, or ntemcHry locaticm. The format of the output is 
dfete|riBilhed ^y the type of the variable being written. for 
eWaypl'e, ^ integer variables are »«ritten as 16— bit signed deciisal 
ihtelgers^ while set variables are written with set notation. The 
nJEuads I of I the v^^i^le to be di^alayed are pl^ired inside 
pkrdntriesesi after the "W. If more than one variable is to be 
wriSteri then the names are separateKi by cotnaas. Riysical menory 
locations are addressed as integers (either octal or decimal). As 
in Pascal, integer and real values may use format control with the 
colon (:) notation. This is also hem one examines msmsry 
locations in octal. 



BLACK 

> itf (Ca3Lt3RC BLfl CKKHvS3 , CQLQRCt!>BITEKI|^31 

WHITE 

> W(U SERr«l\^SC53) 
'Bl' 

1 W (ROQT^. SQN^. VALlg) 

402 

J W(54B) 

-10154 

> W^54B;-i) 
154i26B 

> nisi 

C'A','M','Z'3 
3. 141S93E-KK) 

'A' 

> Will 
123 
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Advanced ., Debugging Techni gues 

If you write large programs, restrictions in fflefsory size aiay limit 
ycMJur use of I POD few debugging. Hov#ever, you can do several things 
to reduce the amount of amatory recpjiired by POD. I 

The isasi est thing is to disable source d^iugging. The use of the 
source I debiligging qption (/S) expands your program by one Ncn-d foif 
eyerjy Pjascal statement in your program. For large prc^raas, you 
may save imoi|-e than IK words by not using source debugging. 

■ I N' Mi :: • r 

Anoth0^i tectjinic^e you can use is selective d^}ugging. You can 
eait] your progrsua to turn off the generation of POD debugging 
informa|tion au^ound procedures that have already been tested and 
debuggied. To turn off d^jugging, place the line C*D-> before the 
procedure definition and £*D+> after the procedure. You will not 
be able to set breakpoints or examine variables in such 
procedures, but you wi 1 1 save two or three words few every 
statement not debugged. Be sure debugging is ensiled around all 
variables you may wish to examine and around the main procedure. 

If your program uses overlays, you can still debug ycMjr program 
using POD. ii^en you compile the main body of-the program, which 
resides in. the root segment, use the debugging switch {/I» and 
produce a symbol table file. Compile each of the external modules 
in the normal way without the drugging switch. 

The best way to debug an external procedure is to ^it your main 

program to include the definition of the external procedure. Once 

the procedure has been d^sugged, you can move the procedure from 
the main program into an external module. 

Ahotherj way to debug one extiarnal procedure at a ti^ is to 
compile^ that exta^nal procedure with the debugging t^tion {/&>. 
Edit i your main program to ensdsle debugging only around the BEGIN 
statement that is the start: of the main program as shoHHrtS 

£«D+> 

^eiN {r«)iN> 

This initializes the Itebugger wh^i the program starts. Then 
compile the main program in the nromal way. tihan POD asks you for 
the program name, give the name of the external procedure you wish 
to debug. 

When you link your overlaid program you will have to use t*M3 
overlay regions to ci^ttain the tmsdules of POD. These two overlay 
regions may, in most cases, also contain your own external 
procedures. There shcmld be no conflicts because fKSD only lets 
you debug in the root segment, and as long as the two POD modules 
RTDBB and DBB are placed in the root, there should be no problems 
with the overlays. 
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You cannot set breakpoints within external procedures, but you can 
cause a break when the external procedure is called -from the main 
prograot. This is done by setting a breakpoint and giving only the 
name of the procedure at which to break as with: B(OVERl). "mis 
type o-f breakpoint will stop the program beftSre the external 
procedure OVERl is executed. The only variables you will be able 
to examine- and iMidify in C3VER1 are those variables in the 
parameter list for OVERl. Note that the nao^s of the ps»-afflet«-s 
are clef ined! by the external procedure definition of OVERl in th6 
mkin! program, not by the definitions in OVERl itself. 
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Introductio n to the Inst all at i.CTi_6yide 

This guide describes the procedures for installing Pascal-i VI. 2 
on your RT-li operating systeas. Note that the procedures for the 
installation of V2 of RT-il differ from those for V3 and V4 of 
RT-11. The latter two are identical. 

In examples, underlining is used to show the text that you should 
type. Non-underlined text shows the prompts or other responses fay 
the coii^uter. 
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Contents .. of the Distribution iledium 



Each 
is a 



mediufli contains a cooplete set o-F distribution files. 



li 



st of these files with a brief explanation of each one. 



Below 



Installation Files 



iTAL.DDC Installation docui^»itatian 

' INiSlTftL.SA^ Installation program 

! . ,U.,., I. I r - p 

Do cuffieri tation Files 

TAiSLE .DOC Table of Ccmtents 

INJRd .DOC Introducticm 

USER .DOC User's Guide . 

GUIDE .DOC Progra^i»r's Guide 

PASCAL.DOC Language Specif i cat i cm 

DEBl^ »DOC Debugger Guide 

INSTAL.DOC Installation- Guide 



Compile rs 

PASFPP.SAV 
PASSIM. SAV 



Cofflpiler for FPP machines 
CofBpiler fcMT ntm-FM* machines 



U tility Prograois 

; PASFTIT.PAS Formatter and cross reference 

ir#> i .PAS Post-cofl^ilaticwi optimizer 

PROFIL.PAS Program profiler 

PCL ! .PAS Pascal ccam^td language interpreter 

ERROR .PAS System &-rorC) procedure 

STRING-P^« String manipulation procedtwes 

INTRPT.PAS Interrupt handling examples 

CSI -PAS Interface for .CSI^N 

MACEIS.SAV Fast assembler for EIS machines 

MACSIM.SAV Fast asse^iler few- nwi-EIS machines 



Object Libraries 

LIBFPP.V3/.V2 
LIBFIS.V3/.V2 
LIBEIS.V3/.V2 
LIBSIM.V3/.V2 



Library for FPP on RT-il V3/V2 
Library few FIS cm RT-il V3/V2 
Library for EIS on RT-il V3/V2 
Library for non-EIS cm RT-11 V3/V2 
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Sgbyager Modules 

OFPP. VZ/.\rZ, ... , 9FPP. V3/ . V2, AFPP. V3/ . V2, BFPP. V3/ . V2 

I FPP debugger nodules for RT-11 V3/V2 
0SlM-V3/.y2, ... ,9SIM.V3/.V2,ASIM.V3/.V2,BSIM.V3/.V2 
Noh-FPP debugger laodules fcv RT-11 V3/V2 

Demons tirat ibn Pr ograais 

tf?TgiPAS Ttie gaaie of Ftearts 
.__JD|{]pi;P/^ Randos number gen«-ator 
M^E I .PAS Amazing DeiiKXistraticHi 




Installation Preparation 



For RT-ll V3 and V4, the Pascal VI. 2 syst^i is installed by an 
automatic configuration prcKiedure. For RT-il V2, the procedure is 
only partially automated. 

Several system programs supplied by DEC are rec^ired for 
installation of Pascal aund for use by the Pascal system. These 
programs are PIP.SAV, the file transfer utility; f^^iS^J.SAV, the 
assemblers SYSM^^.^«., the l«%:f^ library; S¥^.IB.CKSJ, the 
default sysiiem object library; and Lir«<.SAV, the linking loader. 
You should verify that these programs are on your system disk. 
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Installation Dialogue 



The installation procedure builds Pa»:al cm a single target disk. 
The target disk oiust contain at least 544 free blocks if no 
documentation or demonstrations are desired. The documentation 
files require 245 blocks of storage, while the demonstration files 
us® 175 blocks, or 964 total blocks. 

To sjtart the installation process, t^ie: 

i -BM xxn: INSTAL 

i^ere xxn: is the device,, name and unit number of the distribution 
medium.; Tlhis starts the installaticm procedure, »#iich Mill ask 
seva^al questions. The default ansi«sr is given in parentheses at 
the : end of each questicHi and will be used Mti^n yraji respond with 
only a carrage return. Below are the questions and a description 
of each. 

DEVICE FOR THE DISTRIBfJTIt3N MEDIUM (MT: ) ? 

Enter the device nai^ and unit nuti^er on which the Pascal 
distribution medium is mounted. If the device is "MT:", a 
carriage return will use this name as default. 

DEVICE FOR THE TARGET DISK (SY: > ? 

Enter the device name and unit number of the disk on which 
Pascal is to be installed. - 

INCLUDE DEMONSTRATION PROGRAMS Ah© DOCUMENTATION <YES) ? 

If the ans«^r is yes, the demonstration programs and 
documentation files are included in the system 
installation procedure. 

U^ TJ« CURRENT SYSTEM'S CONFIBlff?ATION <YES) ? 

If the answer is yes, the version of RT-li and the math 
hardware on the current system are used in configuring 
Pascal, and the following questions are omitted. 

VERSION OF RT-ll TO BE USED <n) ? 

Answer "4" if Pascal is to run on RT-ll V4. Answ»~ "3" if 
Pascal is to run on RT-il V3. Answs»- "2" if Pascal is to 
run on RT-ll V2- The default will be the current version 
of RT-li. The same Pascal system is used for- RT-li V3 or 
V4. 

IS FPP HARDWARE TO BE USED (YES/NO) ? 

If. you will be using a machine with an FPU floating-point 
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processor, answer yes, otherwise no. If yes. then the 
neKt two questions are skipped. The default will be thl 
current system's configuration. ^ wiii oe tne 

JIS FIS HARDWARE TO BE USED <YES/NO) ? 

iLt^" "^".''f "si"g a machine with a PDP-11/40 styl4 
li^=i"^^^"L ^^^^r^^ti^" set answer yes, otherwise noi 
uIiTho ih f^* '^"^"'^ ^^ skipped. The default 
will be the current system's configuration. 

. IS EIS HARDWARE TO BE USED <YES/NO) ? " ' 

If , you will be using a machine with an extended 
instruction set for integer operati^is ans.^ y^ 
otherwise no. The default will be the current systL's 
configuration. =>y=.».=i» =» 



GOlsriBURATION BEINS INSTALLED 
SOURCE: MT: 

TAR^rr: rac2: 

RT~ll: V3 . 
«ATH: EIS 

Si kiS^^ii^'°" program will then proceed to copy the files fro« 
the tiistnbutxon mediuiB to the target device. Tiies i-roti^ 

Forfloppy and E^Ctape distribution, the installation program nill 
prompt the liser to mount the next volume ithen needed. 1 

?om^7ifi* **i^^ ^^^ ^^^ copied, several programs need to be 
interpreter, „. P«rxI?P«S. ihe K^^proll^L ^^Stl^^T,^, 

coL^r^i' ^h^" *"*' *" indirect command file auta«tically 
f^tJf^.- ^ programs. See Appendix A for a saaole 
installation. Vou also will need to customize the Pa^al rSSiS 

iSwcS'L StSr"?A '^' "" -^""^ *" flPpS^diK^r » the'?:?S? 
aevice is other than the system disk. 

iQstallation on V2 tar Plnppy nf «=f^q 

abovr"aro^.^ *^ ^l"^^^ *"*''^ systems, yc^ ^st compile the 
consSi^*^^«?«r 1 I ,*^yP»"9 some or all of the commands on the 
A^eniix aT "^ ' folloning the same general procedure shown in 

tr°cre;n°^S^'^^ r^*^^ «ith floppys, so your first actitm is 
doubii-riLJ?^^ ? *"" ^^ "^* step d^ends on whether you have 
double-density drives or single-density drives as main storage. 

^QUbl e -rPensi ty Drives 

If your system has double-density drives with at least 544 free 
blocks, you may use the automated installation driv^, INSTAL.^V, 
to partially build your Pascal system. This means you can foUoJr 
- P,, 1'. Autofflatic Installation" described in the sample 

^"t^^^J:^^^'^^'' ^P^"^^^ f^' '^^ i^^tallatit^ ^ill run 

msCf^CtS'^''r^J^°^V^ ^**^ creating the indirect command file, 
crash^is: ^^'^ ^^®*^ "'^^^^e you normally will see before the 

All files have been copied — beginning compilations. 
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/ou *«12 h^vs ta manually perform ail of the steps that follow 
=h^ ^ssage, under th^ heading "Step 2: Compilation Process" 
fn?S^«12. ?£^x''!^'' ^- .^°" "^^^ ^^^^ ^° "^^ ^ additional drive for 



^2 SC ^nqle-DensitY Drives 



If yoUi 



then 



2) 



i i ! ■ ■ 

havej RT-11 V2 or if your system uses single-density drives; 
yc^ must build Pascal-l manually. Begin with these steps:. ' 

it! ^Scfc!sftv!°*^"^ ^''°^ PASFPP.SAV or PASSIM.SAV and cali 

1 TT«r?;\«^.,^ support library from LIBFPP.V2/V3, LIBFIS. V2/V3, 
LIBEIS.V2/V3, or LIBSIM.V2/V3 and cali it PA^IfiL.OBJ. 

3) Select the d^^ugger modules. The debugger consists of 12 
Z^if^^ ^^\^ *^^* '^®* ^® copied onto your system as fl.OBJ, 
B.OBJ, O.OBJ,...,9-OBJ.' The distribution kit contains 
debugger modules for RT-11 versions 2 and S/4 supporting FPP 
and FIS/EIS/SIM floating-point hardware. - CSioose thas# 12 
files appropriate to your system. 

After transferring the files given above, you have a Pascal system 
capable of compiling, asse^ling, linking, debugging, and| 
executing Pascal programs. »» ^s »*^ 

SsrS^^i"'^^^"^*^® ^^"^ utilities PASFWT, IMP, PCL, Pms^lL, and 
STRII^. ! You may then stcM-e these utilities on another device to 
5ave|space. You also may delete the intermediate .mc and .OBJ 
„T®f i™*i **^® created in the installation process, then 

oaS^^^o,^'^'" *^*^ *° '^^^**'» =P^^®- You must, however, save 
^'lF^»iU-.OBJ, the 12 debugg^^ modules and PR£»="IL.OBJ. After 
cleaning, then, device SY: ' should have these files: 



PASCAL. SAV 
PASCAL. OBJ 
A, B, 0-9. OBJ 
PCL. SAV 
IMP.SAV 
PASFffT.SAV 
PRI^fL.OBJ 
MAC- SAV 

(plus RT-11 



(Compiler) 
< Run— time support) 
(I^bugga^ modules) 
(Command Language Interpreter) 
(Macro code improver) 
(Source text formatter) 
(Profiler module) 
(Fast assembler) 
system utilities and files) 



This sequence will bring you up to "Step 2: Compilatiwi Process" 
described m Appendix A; you should manually complete all of the 
commands in Step 2. 
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i^SDEie^Inst al 1 at i on 



Step l: Automatic Installation 

* 

This installation is fro« -agtape to the system disk on RT-11 V3 
response. ^"^ ^^^^ ^ carriage" return i^ the only 

■ R|^ mt;i nst<m- 

I ^'*'^*"^ j""~ System installation for OMSI Pascal-1 VI. 2 cm RT-li 
-CMT the. following questions, a default answer is 
^rk^r^f^^^^^-'^^^ default will be used wh«t 
£ffi..?7^ I '^^rifSB return key. For details about the 
^uestio,^, type a '7'; otherwise type the desired re^^se. 

Device for the distribution medium CHT:) ? <c^> 

Device for the target iJisk <SY:) ? <CR> 

Include demonstration programs and documentaticm CYES> ? <CR> 

Use current system's configuration (YES> ? <CR> 

Configuration being installed: 
SOURCE: mt: 
Tffi?i^T: sy: 
RTii: V3 
f^TH: FPP 

Copying files: 

«T:USER .DOC to SY:US£R .DOC 

MT:PflSCAL.DOC to SY:PASO=tt..DOC 

nT:DEBU6 .DOC to SY:DEBUB .DOC 

mt:6uide .dcm; to sy: guide .doc 

ht:p/«fpp:sav to sy: pascal, sav 

I «t:m^«:jeis.sav to sy:iiac .sav 

riT:LIBFPP.OBJ to SY:PASWtt..OBJ 
I1T:AFPP .V3 to SY:A .OBJ 

ht:bfpp .v3 to sy:b .obj 
iit:<»tp .v^ to SY:o .raw 
mt:ifpp .v3 to SY:i .obj 

«T:2FPP .V3 to SY:2 .OBJ 
MT:3FPP .V3 to SY:3 .OBJ 

nT:4FPP .V3 to sy:4 ,obj 

mt:kt*p .V3 to SY:5 .OBJ 

MT:6FPP .V3 to sy:6 ,obj 

MT:7FPP .V3 to sy:7 .c©j 

MT:SFPP .V3 tq» SY:8 ,OBJ 

riT:9FPP .V3 to SY:9 .OBJ 

HT: PASFMT. pas to sy: PASFHT. PAS 

MT:IMP .PAS to SYriMP .PAS 

•riT:PROFiL.PAS to sy:profil.pas 
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MT:PCL -PAS to sy:pcl -pas 

MT:STRINS.PAS to SY:STRIN6.PAS 
MT: HEARTS. PAS to SY: HEARTS. PAS 
i1T:CHECKR.PAS to SY:a«CKR.PAS 

i^fT:RA^K}on.PAS to sy: random, pas 
«T:ffAZE .pas to sy:maze .pas 

All files have been copied — beginning compilations 

Step 2: Corapilation Process' 

Aftsr copying all these files, the automatic installation- program 
creates the indirect coraffland file PPBCfkl-.CXSnf »^ich tha> coiqailes; 
the }*ascal Source prograiBS. The cos^ilation process is not ^(»>«ri 
here for- reasons of brevity. 

For RT-11 V2 users and fra- double-d^isity and single-density 
floppys, this comaand file will not be created; the usmr imsst do 
the following steps aianually to coi^sile the stjpplied source 
prograffls. 

.ASS yyn DK <yyn: is the target device) . 

.RU'PASCm. 

*PASFMT=PASFMT 

.RU PASCAL 

*II«>=IPIP 

.RU PASCAL 

♦PRGFIL=PROFIL 

.RU PASC^a- 

*PCL=S-miNB, PCL 

-R r-a^RO 

«PASFi1T=PA^MT 
»IPF=IMP 
«PROFIL=PR£^IL 
*PCL=STRIf^, PCL 

.R Limc 

*pasfmt=^»asfmt, pascal 
»i«p=ihp,pa^:al 
*pcl=pcl, pascal/w: 60000 

♦'^ 

.R PIP 

♦PASFMT.PI»,PA^TTr.«AC,P#^FnT.oai, tfS^nPf^, IPT.ftfVC, I«P.OBJ/D 

«PROFIL. PAS, PROFIL. ^fAC, PCL. MAC, PCL. OBJ/D 

and if the demcHistration programs are includetts 

.RU PASCAL 
*HEARTS=HEARTS 
.RU PASCAL 
*CHECKR=CHECKR 
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.RU PASCAL 

«riAZE=MAZE 

-R MACRO 

«HE<i*RTS=+iEARTS 

*Cf«CKR=CHEaCR 

•MAiiE=MAZE 

*^c|. 

,R LINK 

»tE^TS=HEARTS, PASCAL 
*CHECKR=Cl«CKR, PASCAL 
««AZE=I1AZE, PASCAL 

.R PIP 

•HEARTS. rWM:, HEARTS. OBJ , CfECKR. MAC, CHECKR. OBJ/D 

«MAZE. r«M:, rtf^ZE. OBJ/p 
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Prf^qragitwi nq Changes^.i n„,Pascal — l._y 1 . 2 



Four I specif ic language features have been changed froai VI. 1 to 
VI. 21, all I of which are related to I/O characteristics. If a 
progi^an that was iwitten in VI. 1 fails to operate properly witil 
Vi.2^ check these points: 



(1) 



val 



Cure 



VI. 1 



ue True. This has changed to False in Vi.2. 



EolnO cm interactive terminal files had the initial 



Symptoiai: Program "hangs" , or ignores the first input line. 



I RemoVe the initial ReadlnO, or r^>lace it by the stat^ra^stt 
if 'EolnO then ReadlnO", mdiich runs correctly with eith^ 
version. 

(2> The VI. 1 ReadO procedure, *#)en reading a ipBCked} srray of 
Char, ignored leading blanks and terminated gri a blank or a 
comma. The VI. 2 ReadO procedure will read characters without 
skipping blanks, and tenminates at EolnO or vtfien the array is 
filled. 

SyBsptara: Program does not interpret commands properly, or loisps- 

Cure: Reprogr am sections that use the Vi.l ReadO. ^-ograms that 
atre heavily d^iendent on the VI. 1 style f^adO may be more 
easily recoded with the VI. 2 string package. 

(3) The declaration "file of C3iar" is no longer ecpjdval^it to the 
declaration "Text". This chsmige ccrre^onds to the more 
^^triict iiype checking of the draft ISO Pascal Standard. 

Syrapjtdm: Cbi^iler error message "HEXT file expected". 

i . I : ! • ! - ; 

Ciirel: Substitute the type Text and reccHBpile. 

(4) Hie SeekO, IJepositO, and CloseRandoflrf^ileO procedtjnres 
supplied with VI. 1 have been superseded by the built-in 
procedure Seek O . 

Symptom: t^predictable l/0'failures. l^e Vi.l procedures will 
compile under VI. 2, but will not c^erate correct! y- 

Cure; Reprogr am affected sections using the built-in SeekO. 
Note that the VI. 2 SeekO numba^s file records beginning at 1. 
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gystgniizing^he_Pascal_Languagg_Cmngiand_PrQarain (PCLj> 

DrL™^^p;^r'"^ ^r^^ ^ °^ ^^^^ *^^ P^^'=^l command language 
acSote a^in^^^ used to .automate the compilation process.^ rcf 
?rS?? *^ 2 ^ ^"P"*^ *" standard Command String Interpreter 
(CSI) format and produces an indirect command file to perf^m th^ 
compilation, assembly, linking, and start-up of " a program. 

^^T^J^^^^f^'^ ^^^''^^^^^^^ °^ ^t^s ^Y^tBm disk, PCL will need no 
:^l':^^r^. """-^'^" ^^^^^^ ^" ^^- iAstallation prSdu?^ 

^d^?^^ii^;\^s ^?e^fiat°c;;!-^^ ^r^ing'^'^ ^J^ 

standard text editor. Change the first line of PCL.Ss^ 

PascalDevice = 'yyn:'; C* Device for the Pascal files *) 

where yyn: is the device name and unit number on which the Pascal 

PCL with^?he f«it^"^' '^^^^^^^i^ ^^^Se has been made, rec«^ile 
f'L,!- With the following comaiands: 

-aSSISN jQCQ K< 
■B PASCAL 
*PCL.=PCL 
■^C PCL 

■tl!i!K Pta,, PAa;ft L/STfl C3<; aoqoo 



Mote: 



PCL features are described in detail in a comments section 



at the beginning of the PCL. PAS program. 



PROGRAM convertgroups (data-file, binary-file, 6utput) 5 

CONST 

groupsize = 10; 

TYPE 

index = 1 . . groupsize? 

group = ARRAY C index 3 OF real; 

VAR 

data-file : text; 

fainaryfile : FILE OF groups 

i X : i ndex,; 

groupcount : integer; 

BEGIN 

reset (data-file) 5 

rewrite(binary-f ile) ; 

groupcount := O5 

REPEAT 

ix :=l|l 

read <data-f ile, binary-file-^Eix3) $ 

IF NOT eo-f <data-file) 

THEN 

BEGIN 

REPEAT 

ix := ix •+- 15 

read <data-f i 1 e, bi nary-f i 1 e'^E i x 3 ) 

UNTIL (ix = groupsize) OR eo-f (dataf ile) 5 

IF eof (data-file) 

THEN writelnCFile ends with short group') 

ELSE 

BEGIN 

put (binary-file) 5 

groupcount := groupcount -+• 1 

END 

END , 

UNTIL eo-f (dataf ile) 5 

writeln (groupcount, 'Groups converted') 

END. -C convertgroups J 



VAR I: INTEGER; 
BEGIN 



ENDS 



WRITELN5 

CASE CLASS OF 

WARNING: WRITE ('Warning: •■■ ) ; 
IOERRQR: write <'?I/0 error: '); 
ELSE WRITE <'?Fat;al error: ')5 
END? 

writeln <fnsg:srrormsglength) 5 
IF CLASS=IOERROR THEN BEBIN 
' IF FILENAMELENSTH > THEN 

WRITELNC Filename: " ' ,f ilenaffle:f iienaojeiength, "" ) 5 
writeln (' I/O status: ' , lOSTATUS: 1) 5 
END; 
WRITELNC Program counter: ' ,USERPC:~1) 5 



